Tabelle in Listbox kopieren ?

[Karl-Heinz]

Hallo, ich stehe vor dem Problem mehrere Datensätze aus einer Datenbanktabelle in eine Listbox zu bringen. Wer kann freundlicherweise weiterhelfen ? Vielen Dank !

[Jens Schumann]

Moin Karl,<br>versuchs mal damit:<br>
<pre>
<font size="1" face="Verdana">procedure TForm1.CopyData(L: TStrings; Dataset: TDataset;
Fieldname: String);
begin
L.Clear;
Dataset.First;
While Not Dataset.EOF do
begin
L.Add(Dataset.FieldByName(Fieldname).AsString;
Dataset.Next;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyData(Listbox1.Items,Query1,'Feldname');
end;
</font></pre>
<br>Jens Schuman