komplexes parsen eines Strings

[JoelH]

hier mal ein kleine Projekt dazu ist, in Kylix aber die .pas kannste zur not ja auch so öffnen. brauchst auf der Form einen button1 ein edit1 und ein Memo1

Delphi-Quellcode:

function TForm1.encode(h:String):TStringlist;
var z :string;
    i : integer;
    rueckgabe : TStringlist;
begin
  rueckgabe := TStringlist.Create;
  rueckgabe.Clear;
  i := 1;
  z := '';
  while (i < length(h)) do
  begin
    if h[i] <> #32 then
    begin
      z := z + h[i];
      inc(i);
    end
    else
    begin
      rueckgabe.Add(z);
      z := '';
      inc(i);
      while (h[i] = #32) do
        inc(i);
    end;
  end;
  if (trim(z) <> '') then rueckgabe.add(z);
  result := rueckgabe;
end;

du übergibst einen String und bekommst eine Stringlist zurück.