Lange Strings (> 255 zerlegen und in Stringliste übernehmen

[marabu]

Hallo Lannes,

die Ausnutzung des internen Parsers mit dem Delimiter #13 ist clever, aber ohne StringStream finde ich es eleganter:

Delphi-Quellcode:

function BreakLines(line: String; s: TStrings; delimiter: Char = #13): Integer;
var
  i: Integer;
begin
  if delimiter <> #13 then
  for i := 1 to Length(line) do
    if line[i] = delimiter then
      line[i] := #13;
  s.Text := line;
  Result := s.Count;
end;

Freundliche Grüße vom marabu

Edit: default delimiter muss #13 sein ...