purogurama no himitsu

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

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;

	hThreadList.pas
	17.12.2011	v 1.1
	102 Mal	5.15 kB

	hCodes.7z
	17.12.2011
	53 Mal	4.86 kB