c-strings aufsplitten

[Union]

Vielleicht so:

Delphi-Quellcode:

var
  PA : PAnsiChar;
  SL : TStringList;
  AC : PAnsiChar;

SL := TStringList.Create;
    try
      AC := Pointer(PA);
      while AC^ <> #0 do
      begin
        S := '';
        while AC^<> #0 do
        begin
          S := S + AC^;
          Inc(AC);
        end;
        SL.Add(S);
        Inc(AC);
      end;

      for S in SL do
        writeln(S);

      Readln;
    finally
      SL.Free;
    end;