String umdrehen

[-187-]

Hab nochmal ein kleines Bsp aus meinen Übungen ausgekramt. Geht aber mit Sicherheit noch sinnvoller

Delphi-Quellcode:

function StringReverse(S:String):String;
var
  i: Integer;
begin
  Result:='';
  for i:=Length(S) downto 1 do
  Begin
    Result:=Result+Copy(S,i,1);
  end;
end;

function SentenceReverse(S:String):String;
var
  i,Pos1: Integer;
  tmpStr: String;
begin
  Result:='';
  repeat
    Pos1:=Pos(' ',S);
    if Pos1>0 then
      tmpStr:=Copy(S,1,Pos1-1) else
      tmpStr:=S;
    tmpStr:=StringReverse(tmpStr);
    if not (tmpStr=StringReverse(S)) then
      Result:=Result+tmpStr+' ' else
      Result:=Result+tmpStr;
    S:=Copy(S,Pos1+1,Length(S));
  until
    Pos1=0;
end;