String partitionell auslesen

[ichbins]

du könntest z.B. 'n bisschen nachdenken und ne eigenen func schreiben.

Delphi-Quellcode:

procedure getpartstrings(ws:string;results:array of string);
const
  seperator:char=' ';
  stringmarker:char='"';
var
  i:integer;
  inmarker:boolean;
  s:string;
begin
  s:=trim(ws);
  inmarker:=true;
  setlength(results,1);
  for i:=1 to length(s) do begin
    if s[i]=seperator then 
      setlength(results,length(results)+1)
    else
      results[length(results)-1]:=results[length(results)-1]+1;
    if s[i]=stringmarker then
      inmarker:=not inmarker;  
  end;
  for i:=0 to length(results)-1 do
    if (results[i][1]=stringmarker) and (results[i][length(results[i])]=stringmarker) then
      results[i]:=copy(results[i],2,length(results[i])-2);
end;

(ungetestet)