Hallo, ich hab ein kleines Problem hoffe mir kann wer helfen und zwar. Ich Connecte über TCP auf ein TS3 server, soweit so gut. Nun möchte ich ber ReadLn was auslesen ,das geht auch nur ich möchte eine if abfrage machen mit dem ausgelesenen. Nun bekomme ich aber immer so ein Viereckiges Kästen davor das ich nicht kopieren kann, somit sagt die if abfrage fehler.
Hat jemand eine Lösung für mich wäre super

Hab mal ein kleines Bild angehängt.

mfg Tobi

Dies ist ein Steuerzeichen zb #13 ,#10 usw

Mit Trim oder Trimleft/right kanst Du den String vorher bearbeiten.

Gruss alfold

zusammenfalten · markieren

Delphi-Quellcode:

function MakeHexString(S: String): string;
var CopyS : String;
    j : Integer;
begin
  for j := 1 to Length(S) do begin
    CopyS := Copy(S,j,1);
    if CopyS <> '' then
      Result := Result + ' ' + Format('%2.2x',[Byte(CopyS[1])])
    else
      Result := Result + ' ';
  end;
end;

Damit kannst Du Dir den String in Hex anschauen. Dann wird gleich klar, welches Zeichen es ist.

HTH Wolfgang

Hi, danke für die Antwort es hat geklappt. Wem es sonst noch
Interessiert:

zusammenfalten · markieren

Delphi-Quellcode:

 fr := TCP.IOHandler.ReadLn();
 tr := fr;
 tr := trim(tr);
  if Read = tr then
  begin
   Memo1.Lines.Add('>> Login Ok!');
  end
  else
   Memo1.Lines.Add('>> Login Error');
   Timer1.Enabled := False;
end;

mfg Tobi

Das sieht ein wenig umständlich aus. Und kann es sein, dass da ein begin und end fehlen? Aufgrund der Einrückung könnte man vermuten, dass der Timer nur bei einem Fehler disabled werden soll.