[Alexandrine]

Подскажите, как можно записи из ListBox последовательно скинуть в табличку бд???

[Decoding]

Например так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   i: integer; <b>begin</b>    Table1.Open;    <b>for</b> i := <font color="RoyalBlue">0</font> <b>to</b> ListBox1.Count-<font color="royalblue">1</font> <b>do</b>    <b>begin</b>       Table1.Append;       Table1.FieldByName( <font color="royalblue">'имя_поля'</font> ).AsString := ListBox1.Items.Strings[i];    <b>end</b>;    Table1.Refresh;    Table1.Close; <b>end</b>;