2 Codes in clientsocketread vereinen ?

[Vader]

hallo muetze,

frage?

kann ich das bei meinen client gleich so reinschreiben
bei einer procedure ohne das ich im objektinspektor was
anklicke
ich meine nach dem procedurename >"(Sender: TObject;
Socket: TCustomWinSocket);"


jetzt hab ich ja mit dem tipp vom pappanappa 2 eigene proceduren gemacht.

Code:

procedure socketreadfile (Sender: TObject;
  Socket: TCustomWinSocket);

und

procedure tform1.socketreadtree (Sender: TObject;
  Socket: TCustomWinSocket);

wo ich die socketreadtree in private decklariert mußte weil er
sonst sie nicht erkann hat.


nur ich hänge jetzt bei diesem verdammten aufruf im wirklichen
clientsocketread

Code:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if status=0 then
  SocketReadTree (self)
else if status=1 then
  SocketRedFile (self)

end;

er schreit immer zu wenig parameter.


mfg vader