Eine kleine threadsiche Liste/Objektliste, inkl. Enumerator für eine For-In-Schleife.

 
[delphi]TThreadList<T> = class(TEnumerable<T>)
public type
TListObj = TList<T>;
TListItem = T;
public
constructor Create(OwnsObjects: Boolean);
destructor Destroy; override;
property Duplicates: TDuplicates read …;
property OwnsObjects: Boolean read …;
procedure Add (const Item: TListItem; Duplicates: TDuplicates = dupIgnore);
procedure Remove (const Item: TListItem);
function Contains(const Item: TListItem): Boolean;
procedure Clear;
function LockList: TListObj;
procedure UnlockList;
end;[/delphi] [download id=“1″] [download id=“2″]