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

[Uwe Raabe]

Wo und wie wird das Create aufgerufen?

[deadcantdance]

Das Create wird aufgerufen, bevor das Hauptformular erzeugt wird. Aus der .dpr wird eine Methode aufgerufen, die Datenbankverbindung initialisiert, etc. - und hier wird auch das Create der Liste aufgerufen. Sollte kein Problem sein, da da auch andere Listen erzeugt werden, die von TThreadlist abgeleitet sind. Allerdings kann ich zu den Listen und der von mir erstellen Liste keinen Unterschied erkennen.

[Flocke]

Zitat:

Zitat von Uwe Raabe

Wo und wie wird das Create aufgerufen?

Ich denke die Frage galt eher eine Stückchen Quellcode...

Delphi-Quellcode:

MyList := TMyList.Create; // Variante 1
MyList.Create; // Variante 2

Variante 2 ist falsch!

[deadcantdance]

Ahso, mache ich natürlich so:

Delphi-Quellcode:

MyList := tMyList.Create;

Edit: Tippfehlerkorrektur - hilfe, ich glaube ich schlafe noch ;)

[Uwe Raabe]

Welche Exception wird denn ausgelöst?

Setz mal einen Breakpoint auf das InitializeCriticalSection(FLock) und schau, ob das FLock vor dem Aufruf gänzlich mit 0 bzw. nil gefüllt ist. Die Exception müsste dann bei F7 ausgelöst werden. Laut Doku kann das eigentlich nur bei Speichermangel passieren.

[deadcantdance]

Fehler gefunden, es war

Delphi-Quellcode:

MyList := MyList.Create;

wobei MyList bei mir im Code einen anderen Namen trägt, so dass ich das gestern übersehen habe.

Trotzdem danke für Eure Hilfe!