WideString mit Zeielnumbrüchen in string array?

[Zacherl]

Tag ist glaube ich #10 ... hier mal ein Beispiel zum Trennen deines Strings:

Delphi-Quellcode:

var
  i: integer;
  parts: array of string;
  str: string;
begin
  str := 'z1' + #13#10 + 'z2' + #13#10 + 'z3' + #13#10;
  while pos(#13#10, str) <> 0 do
  begin
    setlength(parts, length(parts) +1);
    parts[length(parts) -1] := copy(str, 1, pos(#13#10, str) -1);
    delete(str, 1, pos(#13#10, str) +1);
  end;
  for i := 0 to length(parts) -1 do
    showmessage(parts[i]);
end;

Florian