Memoinhalt ohne nachhängendes CR-LF

[emsländer]

Hi,

ich hab mir eine TCP - Applikation geschrieben, die den Inhalt eines Memofeldes zurückgibt. Allerdings wird hinterher ein CR-LF angehängt, welches in einem Telnet-Fenster absolut nervig ist, da man in die nächste Zeile springt. Ich übergebe den Inhalt wie folgt:
AContext.Connection.IOHandler.Write(memo1.Lines); wie kann ich jetzt verhindern, das eben bei der Ausgabe in ein DOS-Fenster (Telnet) das CR-LF kommt?


Gruss

EL

[3_of_8]

Vllt. indem du jede Line einzeln schreibst? Bzw. dir per Schleife alle Lines in einem String zusammenklebst?

[emsländer]

Zitat von 3_of_8:

Vllt. indem du jede Line einzeln schreibst? Bzw. dir per Schleife alle Lines in einem String zusammenklebst?

Dann hab ich ja keine Zeilentrennung mehr ..... das ist es ja .... nur nach der letzten Zeile darf kein CR/LF mehr kommen ....


Gruss

EL

[Hawkeye219]

Hallo emsländer,

du könntest die unerwünschten Steuerzeichen mit der Funktion TrimRight abschneiden:

s := TrimRight(memo1.Lines.Text); Gruß Hawkeye

[himitsu]

TrimRight(Memo1.Lines.Text) Oder du machst halt das CR/LF selber rein, wenn du es willst

Delphi-Quellcode:

S := Memo1.Lines[0];
for i := 1 to Memo1.Lines.Count - 1 do
  S := S + #13#10 + Memo1.Lines[i];

//oder
S := '';
for i := 1 to Memo1.Lines.Count - 1 do begin
  if S <> '' Then S := S + #13#10;
  S := S + Memo1.Lines[i];
end;

// oder wie auch immer

[edit]
mißt zu langsam/viel getippt

[emsländer]

Zitat von Hawkeye219:

Hallo emsländer,

du könntest die unerwünschten Steuerzeichen mit der Funktion TrimRight abschneiden:

s := TrimRight(memo1.Lines.Text); Gruß Hawkeye

Danke der wars!

Gruss

EL