Lange Strings (> 255 zerlegen und in Stringliste übernehmen

[Lannes]

Hallo,

für Delphi kleiner Version 6:

Delphi-Quellcode:

procedure SplittToList(var s: String;Delimiter: Char;sStrings: TStrings);
var z : Integer;
    sStream : TStringStream;
begin
  for z := 1 to Length(s) do
    if s[z] = Delimiter then
      s[z] := #13;
  sStream := TStringStream.Create(s);
  try
    sStrings.LoadFromStream(sStream);
    finally
      sStream.Free;
    end;
end;

der Aufruf:

Delphi-Quellcode:

s := 'shfjkshf;khsjfdhks;xjbipuf;v dfv ;sfhao;dhf;sahhsv';
SplittToList(s,';',Memo1.Lines);