Umrechnen von Zahlensystem

[Wolfgang Mix]

Delphi-Quellcode:

//Wolfgang Mix - Delphi-PRAXiS
function ReverseString (InString: string): string;
var hilf:string;
    i:integer;
begin
    hilf:='';
    for i:=length(InString) downto 1 do
      hilf:=hilf+InString[i];
    result:=hilf;
end;

Gruß

Wolfgang