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.