Algorithmus zum ermitteln von Parametern

[omata]

So, hab mich auch nochmal dran versucht...

Delphi-Quellcode:

procedure ReadParams(Text:string; Params:TStrings);
var p:string;
    i:integer;
    Quot:boolean;
begin
  Quot:=false;
  p:='';
  for i:=1 to length(Text) do begin
    case Text[i] of
      '-','/': if not Quot then begin
                 if trim(p) <> '' then
                   Params.Append(trim(p));
                 p:='';
               end;
      '"':     Quot:=not Quot;
      ' ':     if not Quot then begin
                 if trim(p) <> '' then
                   Params.Append(trim(p));
                 p:='';
               end;
    end;
    p:=p + Text[i];
  end;
  if trim(p) <> '' then
    Params.Append(trim(p));
end;