If Text = 'Heute*irgendwas*' then ?

[FabianIBerlin]

ich hatte gerade auch ein problem was hier reinpasst da ich wasverwende was ich hier gesehen habe.

volgendes:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Socket.SendText('message '+ Spieler.getSpielername(0) + ' ist dem Spiel Beigetreten');
end;

wird gesendet

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var befehl : string;
begin
  If Pos('message', Socket.ReceiveText) = 1 then befehl :='message';
  if befehl = 'message' then
  Memo1.Lines.Add(copy(Socket.ReceiveText,8,length(Socket.ReceiveText)));
end;

ist die abfrage doch dies geschieht nicht beim connecten, bzw der text wird nicht angezeigt kp warum nicht!