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:
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