ListBox-Einträge in ein Array von Objekten.

[valon]

hallo , Brauche mal wieder eure Hilfe!

Ich habe eine ListBox mit einigen Einträgen darin.Ich möchte die dort selektierten Einträge einzeln in ein
array vom Typ meiner definierten Klasse einfügen.

Ich erzeuge das Array dynamisch.
Ich dachte ich könnte das so machen.

aber irgendwie funktioniert das nicht.
Habt ihr vielleicht ne bessere Möglichkeit?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Datei:array of TOpenDialogEntity; // meine Klasse
  i,j: Integer;
begin

  j:=0;
  SetLength(Datei,ListBox1.SelCount);    

  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] = True then
    begin
    //Datei[j].create;
    Datei[j].FFilename:=ListBox1.Selected[i].Text;
    Inc(j);
    end;

end;

[edit=sakura] [cl] durch [delphi] tags ersetzt. Der ist süß Mfg, sakura[/edit]
[edit=sakura] untere korrektur gelöscht - kannst auch Edit nutzen Mfg, sakura[/edit]