|
#1
|
||||
|
||||
Вопрос
Подскажите, как можно записи из ListBox последовательно скинуть в табличку бд???
Можно перевернуть мир, не имея даже пресловутой точки опоры, - из чистого пижонства. Ага? |
#2
|
||||
|
||||
Например так
Код:
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; Последний раз редактировалось Decoding, 03.09.2006 в 22:35. |