String aufteilen

[Zacherl]

Delphi-Quellcode:

var
  i,
  i2: integer;
  s: string;
begin
  s := 'Hallo wie geht es dir?';
  for i := 0 to length(s) do
  begin
    if copy(s, i, 1) = ' ' then
    begin
      for i2 := i to length(s) do
      begin
        if Copy(s, i2, 1) = ' ' then
        begin
          showmessage(copy(s, i, length(s) - i);
        end;
      end;
    end;
  end;
end;

Ist ungetestet und muss eventuell leicht verändert werden.
So in der Art geht es aber.

Florian