Eingabe und Anzeigen von Daten [Delphi3 Pro+Zeos+Firebeird]

[Sharky]

Zitat von Ati:

Also Hasenzahn,

süüüsssss

Okay.

Delphi-Quellcode:

procedure TForm1.AbrufClick(Sender: TObject); 
var 
  ListItem:TlistItem;
begin 
  qrMain.Sql.Clear; 
  qrMain.Sql.Text:='SELECT * FROM vim;'; 
  qrMain.Open; 
  // Bis hier hast Du eine SQL-Abfrage gemacht welche Dir alle Datensätze der Tabelle vim liefert
  
  while not qrMain.EOF do // Solange Du nicht am ende der Tabelle bist
  begin 
    ListItem := ListView1.Items.Add; // Erzeuge einen neuen Eintrag im ListView
    ListItem.Caption := qrMain.fieldbyname('nummer').asString; // Beschreiftung für Spalte-1
    ListItem.SubItems.Add(qrMain.fieldbyname('name').asString); // Beschriftung für Spalte-2 (Subitem 1)
    qrMain.Next // Zum nächsten Datensatz
  end; 
end;

Du musst dein ListView jetzt auf ViewStyle := vsReport stellen und zwei Spalten erzeugen (mit der rechten Maustaste draufklicken und den SpaltenEditor auswählen.

Dann sollte es gehen.