Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать число полей типа DBEdit? [D7, Access]

ANATOLYK © (2003-05-28 21:53:00)
На форме размещены ок.30 DBEdit-ов. Какие-то объединены в группы.
Как узнать, сколько таких полей всего
Написал такой код:

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
History: TStringList;
begin
History := TStringList.Create;
History.Clear;
if AdoTable1.State = dsEdit then AdoTable1.Post; // save data
// здесь начинается лажа
For i:= 0 to 100 do begin
With TDBEdit(FindComponent("DbEdit" + IntToStr(i))) do
try // из-за вышеобозначенной лажи
History.Add(Text)
except
continue
end;
end;

AdoTable1.Append;

For i:=0 to History.Count-1 do begin
With TDBEdit(FindComponent("DbEdit" + IntToStr(i+1))) do
Text := History.Strings[i];
end;
AdoTable1.post;
History.Clear;
History.Free;
end;

Может, кто подскажет чего путного?

Danilka (2003-05-29 09:45:00) [1]
VAleksey © (29.05.03 09:42)
:))))))
опередил, почти слово в слово :))))

VAleksey (2003-05-29 09:45:00) [2]

> Danilka ©

:-)

Danilka (2003-05-29 09:44:00) [3]
// здесь начинается лажа
For i:= 0 to Form1.ComponentCount-1 do begin
If Form1.Components[i] is TDBEdit then begin
... делаем, что хотим сделать
end;
end;

если, конечно, у всех дбедитов owner - Form1.
а вообще, есть коллекции, которые можно заполнять на этапе создания этих едитов.
И, конечно, см: Johnmen © (29.05.03 09:34)
если вся каша только ради копирования...

VAleksey (2003-05-29 09:42:00) [4]
var i:integer;
...
begin
for i:=0 to Form1.ComponentCount - 1 do
begin
if Form1.Components[i] is TDBEdit then
begin
...
end;
end;
end;
Но это было к слову. А вообще см
> Johnmen © (29.05.03 09:34)

Johnmen (2003-05-29 09:34:00) [5]
Вообще говоря, копирование записи надо делать СОВСЕМ не так !
Предпочтительнее сделать запрос
INSERT INTO Table (...,...) SELECT ...,... FROM Table WHERE ...

Соловьев (2003-05-29 09:34:00) [6]

> // здесь начинается лажа

действительно, а зачем сканировать DBEdit - в чем такая жизненая необходимость?

anatolik (2003-05-29 09:25:00) [7]
Да, но не все поля DataSet размещены на форме. Надо только те, которые видны на экране (как поведут себя автоинки?). И при сканировании DataSet, наверное, придется обращать внимание еще и на тип данных, либо делать что-то типа Variant -> String.

ЮЮ (2003-05-29 02:32:00) [8]
Сканировать не DbEdit-ы, а DataSet

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »