Unix-Linebreaks

[mmueller12]

Servus,

ich schraube gerade ein bisschen mit der TCP-Komponente von Indy9 herum:
tcp.WriteLn('Foobar'); erzeugt am Ende ein Windows-linebreak (0D 0A). Gibt es da auch eine Funktion, die ein Linux-Linebreak fabriziert?

tcp.Write('Foobar' + chr(10)); erzeugt zwar das gewünschte Ergebnis - aber schön (und vor allem kurz ) ist das nicht unbedingt. (OT: Gibt es nicht sowas wie "\n" in Pascal?

Danke schon mal, und eine geruhsame Weihnacht.

[Alien426]

Gibt es denn Probleme, wenn CR und LF empfangen werden?

Du könntest etwas kürzer so schreiben:

Delphi-Quellcode:

tcp.Write('Foobar' + #10);
tcp.Write('Foobar'#10); // oder aber auch das Plus noch weg lassen

[mmueller12]

Ja, mein Server verlangt einen "normalen" Linebreak.

Aber das mit der Raute sieht schon mal wesentlich besser aus. Danke

[inherited]

Kannst dir auch eine Funktion dafür schreiben

Delphi-Quellcode:

procedure tcpWriteLn(tcp: TIdTCP; text: String);
begin
  tcp.Write(text+#10);
end;

Aber wirklich kürzer ist das nicht, weil du noch dein tcp übergeben musst.

[Dax]

Wenn du >= Delphi 2005 hast, funktioniert auch das:

Delphi-Quellcode:

type
  TClientHelper = class helper for TIdTCPClient
  public
    procedure WriteLnAlternate(s: string);
  end;

procedure TClientHelper.WriteLnAlternate(s: string);
begin
  Write(s + #10);
end;