Hallo.
Scheinbar geht es um Sortieren und Umkehren. ReverseString() ist Bestandteil der
Unit StrUtils und SortedString geht zur Not so:
Delphi-Quellcode:
function SortedString(const s: String): String;
var
iInner, iOuter: Integer;
c: Char;
begin
Result := s;
for iOuter := 2 to Length(Result) do
for iInner := Pred(iOuter) downto 1 do
if Result[iInner] > Result[Succ(iInner)] then
begin
c := Result[Succ(iInner)];
Result[Succ(iInner)] := Result[iInner];
Result[iInner] := c;
end else Break;
end;
Ostergrüße vom marabu