Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#1

TListView und auf Object zugreifen

  Alt 23. Dez 2009, 19:29
Hallo zusammen,

anscheinend bin ich entweder zu blöd oder ich seh den Wald vor lauter Bäumen nicht. Ich befülle folgendermaßen eine ListView mit 2 Spalten :
Delphi-Quellcode:
  I := 0;
  LV_Kundendaten.Items.BeginUpdate;
  with DM_Main, DM_Main.UniQuery_KundenQ do
  begin
    Open;
    while not Eof do
    begin
      ListItem := LV_Kundendaten.Items.Add;
      ListItem.Caption := FieldByName('Feld1').AsString;
      ListItem.SubItems.Add(Format('V - %2.2d', [FieldByName('Feld2').AsInteger]));
      ListItem.SubItems.AddObject(IntToStr(FieldByName('Feld0').AsInteger), Pointer(I));
      I := I + 1;
      Next;
    end;
    Close;
  end;
  LV_Kundendaten.Items.EndUpdate;
Wie kann ich nun auf das Object zugreifen ?
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat