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