TListbox füllen und abfragen

[Sir Rufo]

Hmmm, mein Link zur Doku sagt genau das ...

Und es wird nicht die ToString Methode der TObjectList aufgerufen.

[himitsu]

Ist praktische ein Methode, die an allen Klassen dran hängt.
Kann man also ohne zu casten somit überall aufrufen.

Wie bereits erwähnt, geht es noch besser, wenn sie auch überschrieben wurde und was Sinnvolles zurückgibt, daß möglichst die "Stringrepresentation" des Objektinhaltes ausgibt.

[mkinzler]

Ich würde aber den PK zusätzlich in den Einträgen ablegen.

Listbox1.Items.AddObject (ZQuery1.FieldByName('gesamtname').Value), TObject( ZQuery1.FieldByName('<pk>').Value)) ...

[baumina]

Stimmt, diese Spam-BOTs nerven enorm.

[mkinzler]

Und ich habe nicht mal gemeerkt, dass ich im selben Thread 2 Mal (fast) das Selbe geantwortet habe

[Popov]

Die Frage ist eigentlich schon beantwortet, aber ich hab sie gerade bemerkt und zufällig ein kleines Beispiel parat. Im Beispiel werden zuerst Daten an TObjectList übergeben. ListBox ist nur für die Anzeige an und gibt sie legiglich virtuell wieder.

Delphi-Quellcode:

uses
  Contnrs, DateUtils;

type
  TMyDate = class
    DateStr: string;
  end;

var
  ol: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
var
  d: Integer;
  MyDate: TMyDate;
begin
  ol := TObjectList.Create(True);

  for d := Trunc(Now) - 365 to Trunc(Now) do
  begin
    MyDate := TMyDate.Create;
    MyDate.DateStr := FormatDateTime('dd.MM.yyyy, ddd', d);
    ol.Add(MyDate);
  end;

  ListBox1.Style := lbVirtual;
  ListBox1.Count := ol.Count;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ol.Free;
end;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: String);
begin
  Data := TMyDate(ol[Index]).DateStr;
end;