Delphi dicas

Função para inverter um string

(* Função Inverte



Inverter um String



Parametros    Tipo       Objetivo

wStr1             String     Especificar a Data a ser invertida

i                   Integer   Contador do laço for

Retorno         String     A String invertida *)



function Inverte (wStr1: String): String;

var i: Integer;

begin



        Result := '';

        for i := Length( wStr1 ) downto 1 do Result := Result +

        copy(wStr1,i,1 );



end;