Absolute Database und ListView

[Sharky]

Hai TopDogg,

ich habe das mal in einem Demo so gemacht:

Delphi-Quellcode:

procedure TForm1.ShowNamen;
var
  LI: TListItem;
  LC: TListColumn;
begin
  with ABSQuery1 do
  begin
    close;
    SQL.Text := 'SELECT * FROM demo ORDER BY name';
    open;
    ListView1.Items.BeginUpdate;
    Listview1.Items.Clear;  // Alle Einträge löschen
    Listview1.Columns.Clear;  // Alle Spalten löschen
    LC := ListView1.Columns.Add;  // Spalte für den Namen anlegen
    LC.Caption := 'Name';
    LC.Width := 150;
    LC := ListView1.Columns.Add;  // Spalten für den Vornamen anlegen
    LC.Caption := 'Vorname';
    LC.Width := -2;
    while not (EOF) do  // Alle Datensätze durchlaufen
    begin
      LI := Listview1.Items.Add;  // Neue Zeile erzeugen
      LI.ImageIndex := 0;  // Keien Bild
      LI.Data := Pointer(FieldByName('id').AsInteger); // ID speichern!
      LI.Caption := FieldByName('Name').AsString;
      LI.SubItems.Add(FieldByName('Vorname').AsString);
      Next;
    end;
    ListView1.Items.EndUpdate;
    close;
  end;
end;