Buchstaben umsortieren

[Elvis]

Zitat von marabu:

Scheinbar geht es um Sortieren und Umkehren. ReverseString() ist Bestandteil der Unit StrUtils und SortedString geht zur Not so:
...

Oder so:

Delphi-Quellcode:

function ReverseString(const input : string) : string;
var
  currentChar,
  outputChar      : PChar;
  beforeFirstChar : Integer;
begin
  if length(input) > 1 then
  begin
    SetLength(Result, length(input));

    beforeFirstChar := Integer(@input[1]) - SizeOf(Char);
    outputChar      := @result[1];
    currentChar     := @input[length(input)];

    while Integer(currentChar) > beforeFirstChar do
    begin
      outputChar^ := currentChar^;
      inc(outputChar);
      dec(currentChar);
    end;
  end
  else
   Result := input;
end;