String zerlegen mal anders :)

[Niels]

Moin!

Ich hab mal nen kleinen Quellcode geschrieben um den String in ein Array einzutragen ... Geht bestimmt auch einfacher, aber mir is gar nix besseres eingefallen.

Delphi-Quellcode:

procedure PutInArray(var b: array of string; a: string);
var x,y,k: integer;
    p: boolean;
begin
  p := true;
  y := 1;
  for x := 2 to length(a) do
  begin
    if k > 0 then
    begin
      dec(k);
    end
    else
      if p then
      begin
        b[y] := '';
        p := false;
      end;
      if (a[x] = '"') and (a[x+1] = ',') and (a[x+2] = '"') then
      begin
        inc(y);
        p := true;
        k := 2;
      end
      else b[y] := b[y] + a[x];
  end;
end;