Fórum Caracteres invertidos #253688

07/10/2004

0

Delphi

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


Alex Maia

Alex Maia

Responder

Posts

08/10/2004

Nildo

Olá!

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

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



Responder

Gostei + 0

08/10/2004

Nildo

E para usá-lo:

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


Responder

Gostei + 0

08/10/2004

Alex Maia

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


Responder

Gostei + 0

08/10/2004

Nildo

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar