Zeilenumbruch beim druck

[khh]

Zitat von mkinzler:

Übergebe den Strimg in eine Stringliste und gebe dann jede Zeile separat aus

das hab ich jetzt versucht, leider ohne Erfolg

ich bekomme den String nicht auseinander

wenn ich mir den String anzeigen lasse steht beispielsweise folgendes drin:
0x5c580e0'eine zeile'#13#10'noch eine Zeile'#13#10 was mich dabei irritiert sind die "Stringbegrenzer" dazwischen.
weder Stringreplace noch die function explode:

Delphi-Quellcode:

function Explode(var a: TStrArray; Border, S: string): Integer;
var
  S2: string;
begin
  Result  := 0;
  S2 := S + Border;
  repeat
    SetLength(A, Length(A) + 1);
    a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
    Delete(S2, 1,Length(a[Result] + Border));
    Inc(Result);
  until S2 = '';
end;

mit folgendem aufruf:

Delphi-Quellcode:

       AnzTokens := Explode(A, '#13#10', S);
       for i := 0 to AnzTokens -1 do
       begin
       infozeilen.Add(A[i]);
       fdruckzeile :=   infozeilen[i];
       end;

bekommen diese Umbrüche raus.


wende ich die Funktion aber auf einen normalen string an:
zb dies ist ein = test und dies auch

und filtere auf = , dann liefern die Funktionen das richtige Ergebnis.


Hat jemand nochne Idee?

danke gruss KH