Caracteres invertidos

Delphi

07/10/2004

Como fazer para pegar um texto de um memo e inverte-los?


Alex Maia

Alex Maia

Curtidas 0

Respostas

Nildo

Nildo

07/10/2004

Olá!

function InverteTexto( sTexto: string ): string;
var
   nAux: Integer;
begin
   Result := ´´;

   for nAux := length( sTexto ) downto 1 do
      Result := Result + sTexto[ nAux ];
end;



GOSTEI 0
Nildo

Nildo

07/10/2004

E para usá-lo:

Memo1.text := InverteTexto( Memo1.text );


GOSTEI 0
Alex Maia

Alex Maia

07/10/2004

Os caracteres tem que estar invertidos igual aos nomes escritos na frente das ambulâncias. Alguem sabe como?


GOSTEI 0
Nildo

Nildo

07/10/2004

Aí não tem jeito. Você vai ter que criar um arquivo de fonte, tipo o Arial, mas com as letras tudo ao contrário.


GOSTEI 0
POSTAR