Schleife zum Ausgaben aller Werte einer DB

[Sharky]

Hai Plague,

so geht es bei mir (allerding bei mySQL mit Zeos) ohne Probleme. Man beachte wie ich ein Item erzeuge

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  item : TListItem;
begin
  with Frame21 do
  begin
    Query1.Close;
    Query1.SQL.Text := 'SELECT * FROM test1';
    Query1.Open;
    While not (Query1.Eof) do
    begin
      item := ListView1.Items.Add;
      item.Caption := Query1.FieldByName ('name').AsString;
      item.SubItems.Add(Query1.FieldByName ('vorname').AsString);
      Query1.Next;
    end;
  end;
end;