1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function SplitToArray(input: string):TStringList;
var i:integer;
      text:string;
begin
  {
  Diese Funktion spltittet einen String in eine TStringList auf.
  Die Einträge trennen sich durch ein Leerzeichen
  }
  result:=TStringList.create;
  text:='';
  for i:=0 to length(input) do
  begin
    if input[i]=' ' then
    begin
      result.add(text);
      text:)'';
    end else
      text:=text+input[i];
end;

function DreheUm(input: string):string;
var i: Integer;
begin
  {
  Diese Funktion dreht einen String, der in eine StringList ist, um
  }
  result:='';
  for i:=SplitToArray(input).count-1 downto 0 do
    result:=result+SplitToArray(input)[i];
end;

procedure Button1.Button1click(Sender: TObject);
begin
  Edit2.text:=DrehUm(Edit1.text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

TForm1.Button1Click(Sender)
begin

Edit2.Text:='';

For I:=Length(Edit1.Text) DownTo 1 Do
Begin
If Edit1.Text[I]=' ' ///also Leerzeichen
Then Begin
        Zwischenspeicher:=I; /// I merken, denn da mußt du wieder weitermachen
        I:=I+1;
        Edit2.Text:=Edit2.Text+Edit1.Text[I]
        End;
End;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
VAR i, leerzeichen : INTEGER;
begin
  edit2.text:='';
  i:=Length(edit1.text);
  while i>0 do
  begin
    while (edit1.text[i] <> ' ') and (i>0) do dec(i);

    leerzeichen:=i;
    inc(i);

    while (edit1.text[i] <> ' ') and (i<=Length(edit1.Text)) do
    begin
      edit2.text:=edit2.text+edit1.text[i];
      inc(i);
    end;

    edit2.text:=edit2.Text+' ';

    i:=leerzeichen-1;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure umdrehen (VAR urstring, neustring : String);
VAR i, leerzeichen : INTEGER;
begin
  neustring:='';
  i:=Length(urstring);
  while i>0 do
  begin
    while (urstring[i] <> ' ') and (i>0) do dec(i);

    leerzeichen:=i;
    inc(i);

    while (urstring[i] <> ' ') and (i<=Length(urstring)) do
    begin
      neustring:=neustring+urstring[i];
      inc(i);
    end;

    neustring:=neustring+' ';

    i:=leerzeichen-1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR urstring, neustring: String;
  i, anfang, ende : INTEGER;
begin
  urstring:='';
  for i:=0 TO 99998 DO
  urstring:=urstring+'Delphi-Forum ';

  urstring:=urstring+'Delphi-Forum';

  anfang:=GetTickCount;
  umdrehen(urstring,neustring);
  ende:=GetTickCount;

  ShowMessage(IntToStr(ende-anfang));
end;