Разделы сайта:

Delphi.int.ru

Новости сайта
Регистрация »
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Рассылки сайта
Дружеств. сайты
Каталог ссылок

Delphi.int.ru Expert

Разделы рассылки:

» Авторское слово
» Обучение Delphi
» Delphi.int.ru Expert
» Статья по Delphi
» Файловый архив
» Юмор

Количество читателей рассылки (16.03.2007, 21:00):
5441+1004+283= 6728.

Связь по e-mail:

admin@delphi.int.ru
expert@delphi.int.ru
info@delphi.int.ru

Текст вопроса:

Как в Delphi 2005 изменить папку проектов (по умолчанию - Borland Studio Projects)?

Автор вопроса: Иван (статус: Посетитель)
Дата и время отправки вопроса: 23.11.2006, 22:52
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Иусов Сергей Ник. (статус: 2-ой класс), 24.11.2006, 05:35]:

Здравствуйте, Иван!

100% за 2005 Delphi не скажу, но в 7 делаю так: изменяю параметр "Рабочая папка" в ярлыке запуска на ту что мне нужно и получаю как раз, то что тебе требуется.

2. [Отвечает: Вадим К (статус: Средний уровень), 24.11.2006, 11:33]:

В 2005 и 2006 лезим в Tools --> Options
Ищем в дереве слева Environment Variable
Теперь в окошке System Variable ищем переменную BDSPROJECTSDIR и жмём кнопку Add override;
И в появившемся окошке вписываем новый каталог

Если в вас в оригинальном каталоге в папке bpl были какие-либо файлы, то рекомендую перенести её на новое место. Иначе недосчитаетесь компонентов+Делфа будет ругаться при старте

Оценка за ответ: 3.

Текст вопроса:

Как перенести все данные из dbgrid в локальную б\д? Заранее спасибо.

Автор вопроса: Губкин Александр Александрович (статус: Посетитель)
Дата и время отправки вопроса: 24.11.2006, 06:09
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Иусов Сергей Ник. (статус: 2-ой класс), 24.11.2006, 06:20]:

Здравствуйте, Губкин Александр Александрович!

DBGrig у тебя полюбому связан с набором данных. Создавай на локалке таблицу той же структуры что и таблица (запрос в частном случае) отображаемая в DBGrid'е и копируй данные в нее.

Оценка за ответ: 5.

2. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 24.11.2006, 16:29]:

Здравствуйте, Губкин Александр Александрович!
DBGrid: TDBGrid связывается с источником данных через DataSource: TDataSource. У DataSource есть свойство DataSet: TDataSet. В зависимости от того что сидит в DataSet таблица или запрос находим имя таблицы или SQL текст. Далее либо через SQL за ;прос INSERT-SELECT копируем данные из исходной таблицы в конечное либо методом BatchMove делаем перенос данных.
P.S. Работаем только с экземплярами TDataSet так как TDBGrid компонент для визуального отображения табличных данных баз.

Оценка за ответ: 5.

Текст вопроса:

Где можно узнать побольше о свойствах компонентов входящих в состав Delphi?

Автор вопроса: Губкин Александр Александрович (статус: Посетитель)
Дата и время отправки вопроса: 24.11.2006, 07:04
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 6-ой класс), 24.11.2006, 08:17]:

Больше всего информации о компонентах, входящих в состав Delphi, находится в справке Delphi (клавиша F1). Естественно, english only.

Если хочется на русском языке, то в инете валяются несколько таких дайджестов, но они намного уступают встроенной справке.

Вот щас я набрал в гугле "русская справка компоненты Delphi" - вывалилась куча ссылок. Сделай также.

Оценка за ответ: 5.

2. [Отвечает: Вадим К (статус: Средний уровень), 24.11.2006, 11:37]:

Есть ещё один классный способ. Ставить компонент на форму и смотреть его свойства. Со временем вы заметите, что многие компоненты имеют много одинаковых свойств - это не удивительно - у них есть общие наследники. Позже, что бы понять что это за компонент, вам нужно будет посмотреть 5-10 свойств. Но этак всё равно не возможно познать. Поэтому открывайте стандартные демки и смотрите на них. Очень много они могут рассказать

Оценка за ответ: 5.

3. [Отвечает: Новаковский Юрий Аврамович (статус: 3-ий класс), 24.11.2006, 15:32]:

Здравствуйте, Губкин Александр Александрович!

Вот Держите-раз:
http://expert.delphi.int.ru/download_26

А вот-два две части:
http://expert.delphi.int.ru/download_27
http://expert.delphi.int.ru/download_28

Если надо еще пишите мне.
Успехов!

Оценка за ответ: 5.

4. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 24.11.2006, 16:35]:

Здравствуйте, Губкин Александр Александрович!
Самый оптимальный вариант HELP Delphi, а весь исходный код со свойствами методами и событиями описан в исходниках в каталоге установленной версии Delphi например \Source\Win32\VCL для Studio 2006

Оценка за ответ: 5.

Текст вопроса:

Как записать список выделенных файлов из TFileListBox в TMemo?

Автор вопроса: Иван (статус: Посетитель)
Дата и время отправки вопроса: 24.11.2006, 22:19
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 7
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Denisss (статус: 2-ой класс), 24.11.2006, 22:43]:

Здравствуйте, Иван!

Привожу Вам пример в приложении.
Чтобы он заработал, нужно добавить на форму TListBox, прописать ему в Items несколько строчек, поставить свойство MultiSelect=True; добавить Memo; добавить кнопку, в событие OnClick кнопки скопировать мой пример.

Кажется все.

Удачи!

Приложение:

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // Очищаем Memo Memo1.Clear; // Если ничего не выделено, то уходим if (ListBox1.SelCount < 1) then Exit; with ListBox1 do // Перебираем все элементы ListBox for i:= 0 to Pred(Items.Count) do begin // Если выделено, то переносим в Memo if (Selected[i]) then Memo1.Lines.Add(Items[i]); end; end;

2. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 25.11.2006, 23:32]:

Здравствуйте, Иван!

Привожу следующий код. Только непонятно использование компонента Win 3.1. Ну да ладно!!!

Приложение:

unit uFileBoxToMemo interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrls; type TFrm = class(TForm) FlLstBx: TFileListBox; Mm: TMemo; Btn: TButton procedure BtnClick(Sender: TObject); end; var Frm: TFrm; implementation {$R *.dfm} procedure TFrm.BtnClick(Sender: TObject); var cntr: integer; begin Mm.Clear; FlLstBx.ItemIndex:=0; for cntr:=0 to FlLstBx.Items.Count-1 do Mm.Lines.Add(FlLstBx.Items[cntr]); end; end.

Текст вопроса:

Уважаемые эксперты!

У меня возникло 2 вопроса по интерфейсу моей проги:
1. Как сделать так чтобы в TLIstview можно было таскать Items?
2. Как поместить одно изображение (ну скажем 48 на 48 px) в TImageList так чтобы оно не разбивалось там на части и т.п.?

Автор вопроса: Александр (статус: Посетитель)
Дата и время отправки вопроса: 25.11.2006, 10:31
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 6
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Denisss (статус: 2-ой класс), 25.11.2006, 21:00]:

Здравствуйте, Александр!

1. См. пример в приложении
2. Установите свойства Height и Width = 48 (т.е. установите высоту и ширину Вашего изображения, тогда оно нарезаться не будет)

Удачи!

Приложение:

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } fTemp: Integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // From1.OnCreate procedure TForm1.FormCreate(Sender: TObject); begin // fTemp= -1 Означает, что кнопка мыши не нажата fTemp:= -1; end; // ListBox1.OnMouseDown procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // Пользователь нажал кнопку мыши begin // Получаем пункт под этой кнопкой fTemp:= ListBox1.ItemAtPos(Point(X, Y), True); end; // ListBox1.OnMouseMove procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); // Пользователь передвинул курсор мыши var fNewTemp: Integer; begin // Если кнопка не нажата, то выходим if (fTemp = -1) then Exit; // Получаем пункт под курсором мыши fNewTemp:= ListBox1.ItemAtPos(Point(X, Y), True); // Если курсор находится над прежним пунктом, // то выходим if (fNewTemp = fTemp) then Exit; with ListBox1.Items do // Передвигаем пункт Move(fTemp, fNewTemp); // Запоминаем новое положение пункта fTemp:= fNewTemp; end; // ListBox1.OnMouseUp procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // Пользователь отпустил кнопку мыши begin fTemp:= -1; end; end.

Оценка за ответ: 4.

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 26.11.2006, 09:45]:

Здравствуйте, Александр!
Добавлю только, что TImageList не предназначен для хранения изображений разного размера. Если у заполненного ImageList'а поменять свойства Height/Width, все ранее добавленные изображения потеряются.

Оценка за ответ: 4.

Текст вопроса:

Привет!
У меня такой вопрос:
На форме ComboBox там я выбираю надпись которая меня интересует и сразу загружается
???.txt файл в Memo.Мне надо сделать:
нажал на кнопку "Удалить" удалилась выбранная мною надпись в ComboBox и строка в ini файле только чтобы не остовался пробел там хранится всё содержимое ComboBox.Но вместо ini я использую txt файл
так как в txt файл можно больше внести записей чем в ini или я не прав?
Зараннее благодарен

Автор вопроса: Vit2 (статус: Посетитель)
Дата и время отправки вопроса: 25.11.2006, 23:41
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 10
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 26.11.2006, 11:48]:

Здравствуйте, Vit2!
У класса TComboBox есть метод DeleteSelected который удаляет выбранный Item

Оценка за ответ: 5.

2. [Отвечает: Вадим К (статус: Средний уровень), 27.11.2006, 11:15]:

ini файл по умолчанию предназначен для хранения 64кб инфы(кажеться это ограничение для 98). Больше я не пытался, но скажу, что даже при 30кб работа с ним стаёт невыносимой - тормозит жутко даже под ХР. Но есть выход. Ребята с борланда написали свой аналог - TMemIniFile. От обычного TIniFile только тем, что запись на диск происходит только по явной просьбе - метод Update. У него нет ограничения на размер и работает быстренько.

Оценка за ответ: 5.

Текст вопроса:

Как прочитать все данные из таблици dbgrid,
в переменные
дайте подробное объяснение, а то у меня получается читать только текущую строку
Заранее всем благодарен

Автор вопроса: Губкин Александр Александрович (статус: Посетитель)
Дата и время отправки вопроса: 27.11.2006, 08:05
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 6
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Иусов Сергей Ник. (статус: 2-ой класс), 27.11.2006, 08:38]:

Здравствуйте, Губкин Александр Александрович!
Для того чтобы переместится к следующей записи в наборе данных исользуй метод next.
Пример сохранения данных в переменные (если честно я в не вижу в нем логики, но вопрошающему виднее)
procedure data2vars
begin
DBGrid.DataSource.DataSet.First; <- Встанем на начало набора данных
while not(DBGrid.DataSource.DataSet.Eof) do <- Будем просматривать набор данных до конца
begin
//тут ты присваеваешь своим переменным данные полек
DBGrid.DataSource.DataSet.Next; // <- переход к следующей записи
end;
end;

2. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 27.11.2006, 13:18]:

Здравствуйте, Губкин Александр Александрович!
Как я говорил ранее TDBGrid всего лишь отображает данные хранимые в табличной форме. Сами же данные хранятся в TDataSet. В настоящий момент времени вы работаете с активной записью TDataSet.
Для навигации по записям существуют методы First, Next, Prior, Last, MoveBy(n) - где n количество строк в таблице на которые сдвигается курсор, положительное значение вниз, отрицательное вверх.
Теперь привожу пример.
В новом проекте кидаешь на форму TDBGrid - именуем его Grd, TTable - имя Tbl, TDataSource - DS и кнопку TButton - Btn.
DEMO база у Borland при установленной BDE имеет alias DBDEMOS
В Object Inspector устанавливаем property для TTable Name-Tbl; DatabaseName-DBDEMOS; TableName-country.db. Проверим подключение установив свойство Active:=true; Если ничего не выскочило особенного то всё нормально установим обратно значение в false;
Далее для TDataSource Name-DS; DataSet-Tbl
Теперь TDBGrid Name-Grd; DataSource-DS
Теперь кинем на форму TMemo Name-Mm куда будем переносить данные из таблицы.
Осталось при вызове приложения подключиться к таблице, т.е. на OnCreate формы вставляем Tbl.Active:=true;
Далее смотри пример

Приложение:

unit Unit2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids; type TForm1 = class(TForm) Grd: TDBGrid; Tbl: TTable; DS: TDataSource; Mm: TMemo; Btn: TButton; procedure BtnClick(Sender: TObject); procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BtnClick(Sender: TObject); var perem1, perem2: String; nomrec: integer; begin Mm.Clear; //Запомнили запись где были в таблице nomrec:=Tbl.RecNo; //К началу таблицы Tbl.First //Пока не дойдём до конца while not Tbl.Eof do begin //Присвоим значения переменным //Пишу только для наглядности perem1:=Tbl.Fields[0].AsString; perem2:=Tbl.Fields[1].AsString; //А теперь заносим значения в Mm Mm.Lines.Add(Tbl.Fields[0].AsString; +' - '+Tbl.Fields[1].AsString;); //Идём к следующей записи Tbl.Next; end; //Возвращаем курсор к запомненной записи Tbl.RecNo:=nomrec; end; procedure Form1.FormCreate(Sender: TObject); begin Tbl.Active:=true; end; end. Удачи!!!

3. [Отвечает: Denisss (статус: 2-ой класс), 27.11.2006, 22:48]:

Здравствуйте, Губкин Александр Александрович!

Конечно, Вам уже дали ответ, но я не считаю его до конца корректным. Потому привожу Вам мою модификацию предыдущего ответа, в которой исправлены некоторые ошибки и ускорена работа. Комментарии к примеру остаются прежними (см. выше).
С большими БД всегда хочется хоть немного ускорить работу программы.

Удачи!

Приложение:

procedure TForm1.BtnClick(Sender: TObject); var perem1, perem2: String; Bookmark: TBookmark; begin Mm.Clear; // Запомнили запись где были в таблице // Запоминание производим с помощью закладок Bookmark:= Tbl.GetBookmark; // Отключаем все компоненты, связанные с Tbl чтобы: // 1. Ускорить процесс (иначе у нас будет отображаться все, // что в данный момент копируется) // 2. Пользователь не нажал во время копирования лишних кнопок Tbl.DisableControls; // Для ускорения добавления записей в Memo (начало добавления) Mm.Lines.BeginUpdate; // К началу таблицы Tbl.First; // Пока не дойдём до конца while not Tbl.Eof do begin // Присвоим значения переменным // Пишу только для наглядности perem1:= Tbl.Fields[0].AsString; perem2:= Tbl.Fields[1].AsString; // А теперь заносим значения в Mm Mm.Lines.Add(perem1 + ' - ' + perem2); // Идём к следующей записи Tbl.Next; end; //Возвращаем курсор к запомненной записи Tbl.GotoBookmark(Bookmark); // Освобождаем закладку Tbl.FreeBookmark(Bookmark); // Возвращаем компоненты, связанные с Tbl к жизни Tbl.EnableControls; // Для ускорения добавления записей в Memo (окончание добавления) Mm.Lines.EndUpdate; end;

Текст вопроса:

Какой метод компонента Timer1 позволяет вывести время суток в часах, минутах и секундах?

Автор вопроса: Суслова Елена Владимировна (статус: Посетитель)
Дата и время отправки вопроса: 28.11.2006, 21:05
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 3-ий класс), 28.11.2006, 21:39]:

Здравствуйте, Суслова Елена Владимировна!
Компонент TTimer предназначен немного для других целей. Он никуда не выводит текущее время, он может лишь выполнять некоторое событие периодически с заданным интервалом.
Для получения текущего времени смотрите в сторону фнкции time

Приложение:

Unit SysUtils Syntax [Delphi] function Time(): TDateTime;

Оценка за ответ: 5.

2. [Отвечает: Geron (статус: 1-ый класс), 28.11.2006, 21:44]:

Здравствуйте, Суслова Елена Владимировна!
Нужно по событию прохождения времени таймера.
(создаем caption для вывода времени)
время caption1.caption:=timetostr(now);
даты caption2.caption:=datatostr(now);

Оценка за ответ: 5.

3. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 28.11.2006, 22:05]:

Здравствуйте, Суслова Елена Владимировна!

Компонент TTimer предназначен для упрощённого вызова функций WinAPI SetTimer и KillTimer для упрощения работы с Message WM_TIMER
У этого компонента есть property Enabled которое напрямую связано со свойством Interval.
Enabled:=true активирует TTimer и он вызывает событие OnTimer через промежутки времени заданные свойством Interval.
Если Ваша задача выставить время в часах минутах и секундах для срабатывания таймера, то задача решается. В момент установки свойства Enabled:=true компонента TTimer получить текущее врk 7;мя вызвав функцию Time()если интервал задаётся в пределах суток или Now() если интервал выходит за пределы суток. От времени срабатывания таймера в формате TDateTime или TTime необходимо выче&# 1089;ть текущее время и результат пересчитать в миллисекундах которые далее присваиваются свойству Interval. Только в этом случае существует небольшая погрешность на время вычис& #1083;ения данного алгогритма процесором.

Удачи!

Оценка за ответ: 5.

4. [Отвечает: Alexander A. Gribanov (статус: 2-ой класс), 29.11.2006, 15:07]:

Никакой. Для получение времени и/или даты в произвольном виде идеально подходит функция FormatDateTime. В вашем случае будет что-то типа:
s:=FormatDateTime('hh:mm:ss',now); // s: string;

Оценка за ответ: 5.

Текст вопроса:

Подскажите, плз, почему при обновлении IWGrid (по какой-либо кнопке -- что конечно непринципиально) в папке Cache модуля IWProject накапливаются HTML*.tmp. Казалось бы, что при корректно написанной программе *.tmp должны удалиться. В чём я некорректен?

Автор вопроса: Gutstadt V V (статус: Посетитель)
Дата и время отправки вопроса: 29.11.2006, 15:38
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 29.11.2006, 17:25]:

Здравствуйте, Gutstadt V V!
Любой IW компонент отображает данные через кеш, поэтому при любом обновлении эти данные остаются в *.tmp файле. Освобождение этих данных задача со стороны приложения клиента и&# 1083;и сервера. Эта специфицифика диктуется не Borland а MS Framework (ещё один косяк со стороны Билла). По-моему в IIS это освобождение происходит по написанному скрипту на сервере, хотя не помню то&# 1095;но.
Удачи!

Оценка за ответ: 4.
Комментарий: Спасибо, попробую разобраться дальше сам.

Текст вопроса:

Здравствуйте, эксперты.
Есть база данных аксеса. В ней есть поля с подстановкой данных из друго таблицы.
|key | genre |
|1 | фантастика |
|2 | ужас |
|3 | аниме |
|4 | документальный |
Я делаю сортировку главной таблицы по полю жанр, а сортировка происходит по полю key из вышеприведенной таблицы. Вопрос в том как сделать сортировку, главной таблицы по полю жанр, но чтобы данные брались не из поля key, а из поля genre дополнительной таблице.
Надеюсь вы меня поняли.

Автор вопроса: Федоров Роман Сергеевич (статус: 2-ой класс)
Дата и время отправки вопроса: 29.11.2006, 23:56
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 16
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 30.11.2006, 00:54]:

Здравствуйте, Федоров Роман Сергеевич!
Во-первых что такое дополнительная таблица? Судя по тому что здесь нарисовал, то описан справочник жанров, видимо 2 таблица содержит какие-то данные которые содержат в себе значение genre либо ссылку на него. Достаточно плохо описана задача, хотелось бы видеть и вторую таблицу и вариант конечной структуры.
Смею предположить, что 2 таблицы связаны каким то общим полем, если это так, то в Access построй вторичный индекс по этим связанным полям, а при обращении к таблице используй property AdoTable.Sort:='genre ASC, key ASC';
Другой вариант более гибкий вместо таблицы использовать в ADOQuery SQL запрос например такого типа:
Select A.Key, B.Genre From Sprav A, Dannije B
Where A.Genre = B.Genre
Order by B.Genre
Где Sprav - 1 таблица, Dannije - 2 таблица.
Удачи
Было бы неплохо увидеть исходник и структуру таблиц.

Оценка за ответ: 5.