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]

[Gollum]

Hallo,

das kann nicht gehen, weil Selected von Typ Boolean ist und kein Objekt. Um den selektierten Eintrag zu erhalten, musst Du die Eigenschaft Items bemühen:

Delphi-Quellcode:

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

[valon]

Danke!

Ich versuche es nochmal.

[jim_raynor]

Wenn du in dem Array Klassen verwaltest, dann darfst du nicht vergessen die Objekte mit Create zu erstellen und mit Free freizugeben.