Buscar por:

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!