TObjektList

[mirage228]

Hi,

das eintragen kannst Du so lösen:

Delphi-Quellcode:

uses
  Contnrs;

// Du kannst diese Prozedur so oft aufrufen, wie Du willst ;)
procedure SpeichernOderSo;
var
  i: integer;
  Item: TOpenDialogEntity;
begin  
  if Assigned(ObjectList) then
    FreeAndNil(ObjectList);
  ObjList := TObjectList.Create;
  for i := 0 to ListBox.Count-1 do
  begin
    Item := TOpenDialogEntity.Create;
    Item.FileName := ListBox.Items[i];
    ObjList.Add(Item);
  end;
end;

// abruf dann so z.B.
var
  Item: TOpenDialogEntity;
begin
  Item := TOpenDialogEntity(ObjList[0]);
end;

Ich hoffe das hilft Dir weiter

mfG
mirage228