TList einmal erweitert

[Opa]

Entschuldigung angekommen.

Ich hatte das Ding eigentlich aus TListString abgekupfert und ein bisschen erweitert, durchgeht überprüft habe ich das in der Tat nicht. In meinen Prg. ging es eigentlich nur darum eine Adr aus einem normalen Tlist, da muss ich was markieren und die Markierten wollte ich nicht doppelt haben. Ich wollte auch keine normale TstringList machen, weil ich dann die Strings doppelt im Speicher habe. Mir reichen aber die Adr.

Ich werde das mal in Ruhe überprüfen was du gesagt hast und ggf. die Sache oben ändern.
Es geht dabei um so eine record und daraus einzelen Werte
PDateiListRec = ^TDateiListRec;
TDateiListRec = packed record
SRec : TSearchRec;
Pfad : string;
DateiName : string;
Ext : string;
DestPfad : string;
DestDateiName : string;
DestExt : string;
Attr : string;
CRC64Calc : int64;
Duplikat : boolean;
DatumSuchen : boolean;
Error : boolean;
Change : boolean;
DateTime : TDateTime;
DuplikatIndex : integer;
Select : boolean;
Index : word;
end;