Listbox Problem

[Sharky]

Hai Brueckenhauer,

Zitat von Brueckenhauer:

... wie kann ich eine Zeile nach der andere in die Listbox bekommen? ...

Dieser Code hier trägt z.B. alle Felder einer Zeile der Tabelle in eine TListBox ein:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
  tmp : String;
begin
  ListBox1.Clear;
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM meintest';
  Query1.Open;
  While not (Query1.Eof) do // Alle Zeilen durchlaufen
  begin
    tmp := '';
    for ndx := 0 to Query1.Fields.Count -1 do  // Alle Felder durchlaufen
    begin
      tmp := tmp + Query1.Fields[ndx].AsString;  // String aufbauen
      if (ndx < Query1.Fields.count -1) then  // Trennzeichen einfügen
       tmp := tmp + ' - ';
    end;
    ListBox1.Items.Add(tmp);  // In die ListBox eintragen
    Query1.Next;  // Nächster Datensatz
  end;
end;