Problem bei Vererbung

**punkt21**

hey!

ich habe ein problem bei der vererbung eines constructors.

die oberklasse sieht wie folgt aus:

Delphi-Quellcode:

			constructor create(pPortNr: integer); virtual;

constructor TServer.create(pPortNr: integer);

begin

  serverSocket:=TServerSocket.Create(nil);

  serverSocket.Port:=pPortNr;

  serverSocket.OnClientConnect:=incomingConnection;

  serverSocket.OnClientRead:=incomingMessage;

  serverSocket.OnClientDisconnect:=clientDisconnected;

  serverSocket.Open;

  showmessage('uServer');

end;

und so die tochterklasse ist dann wie folgt aufgebaut:

markieren

Delphi-Quellcode:

			constructor create(pPortNr: integer); override;

constructor TMServer.create(pPortNr: integer);

begin

  showmessage('1');     //zu testzweck

  inherited create(pPortNr);

  UserListe := TListe.init;

end;

mein problem ist: es wird weder die liste initialisiert noch die showmessage ausgegeben.
das inherited create wird jedoch aufgerufen, da der server geöffnet wird und ich auch verbindungen + chatnachrichten verschicken kann.

brauche dringend hilfe, mein lehrer ist auch schon ratlos -.-

mfg

Problem bei Vererbung

Problem bei Vererbung

Forumregeln