Função para inverter uma String.

Com esta função podemos facilmente inverter ou mesmo
reverter uma string invertida.

É necessário estar declarado StrUtils na seção uses,
em versões unicode declare System.StrUtils;

Função do Delphi: ReverseString(Texto)
Retorno: String;

Exemplos de uso

1
2
3
4
5
6

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( ReverseString('Texto') );
 
ShowMessage( ReverseString('ihpleD wohS') );
end;