Hai Plague,
baue einfach eine While-Do Schleife:
Delphi-Quellcode:
Frame31.Query1.Active := false;
Frame31.Query1.SQL.Clear;
Frame31.Query1.SQL.Add('SELECT * FROM Benutzer');
Frame31.Query1.Active := true;
While Not (Frame31.Query1.Eof) do
begin
Frame31.ListView1.Items.Add.Caption := (Frame31.Query1.FieldByName('Benutzer').AsString);
Frame31.ListView1.Items.Add.SubItems.Add(Frame31.Query1.FieldByName('Berechtigung').AsString);
Frame31.Query1.Next;
end;
[Edit] Warum schreibst Du eigentlich überall Frame31 davor?
Stephan B.
"Lasst den Gänsen ihre Füßchen"