Klasse von TThreadList ableiten

[deadcantdance]

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