Buscar

Invertendo texto

Código

Esta função inverte um texto, por exemplo, sTexto := 'delphi', sTextoInvertido := 'ihpled'.

function InverteTexto(psTexto: String): String;
var
  I: Integer;
  sTextoInvertido: String;
begin
  for I := Length(psTexto) downto 1 do
  begin
    sTextoInvertido := sTextoInvertido + psTexto[I];
  end;
  Result := sTextoInvertido;
  ShowMessage('O texto invertido é: ' + Result);
end;

>> Testando <<

-> Adicione ao Form, um Edit e um Button.
-> No evento OnClick do Button adicione o seguinte código:

var
  sTexto, sResultado: String;
begin
  sTexto := edTexto.Text;
  sResultado := InverteTexto(sTexto);
end;

Abraços,
Vinícius Fernandes!

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 27/07/09
Por: Vinícius Fernandes Silva
Visualizada: 3031 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009