Hi,
ich möchte eine eigene Listen-Klasse bauen, die von TThreadList erbt. Bisher gibt es nur ein Problem. Im inherited create (also im constructor von TThreadList) gibt es eine Excepion bei InitializeCriticalSection(FLock) - FLock wird als nicht verfügbar im Debugger angezeigt.
Vielleicht erkennt jemand von Euch, wo das Problem liegt. Hier der Code
Delphi-Quellcode:
unit MyListClass;
interface
uses
classes, sysutils, windows;
type
tMyList =
class(TThreadList)
private
public
constructor Create;
Destructor Destroy;
override;
end;
var
MyList : tMyList =
nil;
implementation
constructor tMyList.create;
begin
inherited create;
end;
destructor tMyList.Destroy;
begin
inherited destroy;
end;
Viele Grüße,
deadcantdance