02.08.2006, 13:47
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Например так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Table1.Open;
for i := 0 to ListBox1.Count-1 do
begin
Table1.Append;
Table1.FieldByName( 'имя_поля' ).AsString := ListBox1.Items.Strings[i];
end;
Table1.Refresh;
Table1.Close;
end;
|