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

[Sharky]

Zitat von Ati:

Ich komme ja gar nicht soweit. ...

Du hast am Sonntag ja auch einen anderen Code gehabt

Code:

procedure TForm1.btnanzeigeClick(Sender: TObject); 
var 
  [color=red]ListItem: TListItem;[/color]
begin 
  qrMain.SQL.Text:='Select * from vim; '; 
  qrMain.Open; 
  while not qrMain.EOF do 
  begin 
    [color=red][b]ListItem:= Listview1.Items.Add;[/b][/color]
    ListItem.Caption:= qrMain.fielbyname('id').asString;
    listItem.SubItems.Add(qrMain.FieldbyName('nummer').asString); 
    qrMain.Next; 
  end; 
end;

TListView.Items.Add ist eine Funktion die ein "neues" TListItem zurück gibt.

Vergleiche das mal mit deinen Code von heute.