TObjectList und TListBox

[SteffenSchm]

Hallo,

ich habe folgende Fragestellung:

In meinem Programm speichere ich die Daten (MyObjt) in einer von TObjectList abgeleteten Klasse MyObjtLst.
Zum Auswählen einzelner Objekte dieser Liste und zum Umsortieren, Löschen und Hinzufügen von Objekten will ich eine ListBox (MyListBox) verwendet.
Bisher hatte ich keine andere Idee als beim Anzeigen des Fensters zur Dateneingabe alle Enträge der ObjektListe an die ListBox zu übergeben:

Delphi-Quellcode:

procedure TDataDlg.FormShow(Sender: TObject);
var
  i:Integer;
begin
  MyListBox.Clear;
  for i:=0 to MyObjtLst.Count-1 do
    MyListBox.AddItem(MyObjtLst[i].Name,MyObjtLst[i]);

  MyObjtLst.OwnsObjects:=False;
end;

und beim Schliessen des Fenster wieder zurückzuspeichern:

Delphi-Quellcode:

procedure TDataDlg.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:Integer;
  MyObjt : TMyObjt;
begin
  MyObjtLst.Clear;
  for i:=0 to MyListBox.Items.Count-1 do
  begin
    MyObjt:=MyListBox.Items.Objects[i] as TMyObjt;
    MyObjtLst.Add(MyObjt);
  end;
  MyObjtLst.OwnsObjects:=True;
end;

Aber ist diese hin und her zwischen den Listen nicht etwas zu umsrändlich?
Gibt es eine einfachere bzw. bessere Lösung?

[mkinzler]

Am Besten den virtuellen Modus verwenden.

[SteffenSchm]

Danke für die Antwort, aber ich muss gestehen:
Das sagt mir gar nichts!

[Uwe Raabe]

Schaust du hier: http://docwiki.embarcadero.com/Libra....TListBoxStyle

[mkinzler]

Virtuell bedeutet, dass die Daten nicht in der Komponente gespeichert werden, sondern dass diese die Daten per Event anfordert.

Setze die Eigenschaft Style auf libVirtual.

Die Daten für die Anzeige, werden dann über den Data-Event angefordert. (onData)

[SteffenSchm]

Danke!!

Das schaut gut aus!!!