danke, das hilft mir erstmal sehr weiter ... Dann mach ich mich mal ans Werk
hab es mit Hilfe von Chakotay1308 so gelöst ... thx nochmal ^^
Delphi-Quellcode:
type
TEntry = class(TObject) // Typ
fPath: string; // Dateipfad
end;
{...}
var
PLitem:TEntry;
begin
{...}
PLitem:=TEntry.Create();
PLitem.fPath:=OpenDialog1.FileName;
ListBox1.AddItem(CutPathName(OpenDialog1.FileName), PLitem);
end;