Datenbankdaten in einem Listview anzeigen?

[Sharky]

Hai obeheles,

da ich das auch oft mache habe ich hier ein Stück Code

Delphi-Quellcode:

procedure TFRM_Main.Button1Click(Sender: TObject);
var
  LI: TListItem;
  LC: TListColumn;
begin
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM standorte ORDER BY bezeichnung';
    Open;
    ListView1.Items.BeginUpdate;
    Listview1.Items.Clear;          // Alle Zeilen löschen
    Listview1.Columns.Clear;        // Allte "Überschriften"  löschen

    LC := ListView1.Columns.Add;    // Spalte 1
    LC.Caption := 'Bezeichnung';
    LC.Width := 150;

    LC := ListView1.Columns.Add;    // Spalte 2
    LC.Caption := 'Ort';
    LC.Width := 150;

    while not (EOF) do              // Alle Datensätze durchlaufen
    begin
      LI := Listview1.Items.Add;    // Neue Zeile
      LI.ImageIndex := -1;          // Kein Bild
      LI.Data := Pointer(FieldByName('id').AsInteger); // ID speichern!
      LI.Caption := FieldByName('bezeichnung').AsString;
      LI.SubItems.Add(FieldByName('ort').AsString);
      Next;
    end;
    ListView1.Items.EndUpdate;
    Close;
  end;
end;