String erkennen und aufteilen!

[himitsu]

Erstens: dein QuellCode ist echt besh*** formatiert ... kaum zu entziffern.

Zweitens: das "=true" gewöhn dir ganz schnell ab, es kann und wird abundzu zu Problemen führen
denn TRUE ist nicht gleich TRUE

Teste es selber mal

Delphi-Quellcode:

Var B: Boolean;

Begin
  B := True;

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ...  // wird ausgelöst (OK, hier funktioniert es mal)

  If not B Then ...     // wird nicht ausgelöst
  If B Then ...         // wird ausgelöst



  B := Boolean(2);  // ist im Grunde auch True, da TRUE <> 0

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ...  // wird auch nicht ausgelöst !!!

  If not B Then ...     // wird nicht ausgelöst
  If B Then ...         // wird ausgelöst



  B := Boolean(0);  // oder B := False;

  If B = False Then ... // wird ausgelöst
  If B = True Then ...  // wird nicht ausgelöst

  If not B Then ...     // wird ausgelöst
  If B Then ...         // wird nicht ausgelöst
End;

Server:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Text: String;
  i: integer;

begin
  Text := Socket.ReceiveText;
  if Pos('\\', Text) = 1 then
    Memo2.Lines.Add(Text) 
  else
    Memo1.Lines.Add(TimeToStr(now) + ': ' + Text);
  For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    with ServerSocket1.Socket.Connections[i] do
      if connected then SendText(Text);
end;

Client:

Delphi-Quellcode:

Var
  IP: string;

begin
  Label3.Caption := IP;
  if ClientSocket1.Active then
    ClientSocket1.socket.SendText('\\' + IP);
end;

[add]
wo war der Rote Kaste ... Daaaannniiiieeellll?