Einzelnen Beitrag anzeigen

Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#1

inherited Free; <-- warum kommt da eine exeption?!

  Alt 20. Jan 2006, 06:25
Hallo, ich habe mir gerade eine Klasse geschrieben, weil ich mir für den Minichat, den ich demletzt hier in OpenSource veröffentlich habe auch noch ein Delphi-Client schreiben will. In meinem destructor:
Delphi-Quellcode:
destructor TMiniChatClient.Free;
begin
    Logout;
    inherited Free; //<-- exception hier!
end;
tritt aber eine exeption auf. Meine Klasse ist von TComponent abgeleitet.
Jemand eine Idee, woher das kommen kann *ratlos*.

Die komplette Klasse findet ihr im Anhang.
Angehängte Dateien
Dateityp: pas minichatclient_148.pas (3,2 KB, 4x aufgerufen)
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat