Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.029 Beiträge
 
Delphi 12 Athens
 
#8

Re: String erkennen und aufteilen!

  Alt 30. Apr 2006, 23:43
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?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat