25.12.2008, 14:25
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну тогда так и заполняй:
Код:
var
I : Integer;
begin
...
table1.edit;
...
For I := 1 To 40 Do
table1.FieldByName('D'+IntToStr(I)).AsInteger := a1[i];
table1.post;
... |