[Resolvido] Deixar Texto Ao Contrario No Delphi

[richard1994x 0]

Quero assim:

 

Crio um campo para texto e um botão.

No campo para texto coloco AMOR e ao clicar no botão ele inverta a palavra.

Do que era AMOR vai ficar ROMA.

 

Sacaram?

 

Outros exemplos:

CASA=ASAC

CARRO=ORRAC

[bdexterholland 0]

coloque este código depois da palavra implementation:

Function InverteTexto(Original : String) : String;
var
  I   : Integer;
  Aux : String;
begin
  Aux := '';
  For i := Lenght(Original) DownTo 1 Do
    Aux := Aux + Original[i];
  Result := Aux;
end;

e no botao que voce quer que inverta o texto voce vai colocar:

Edit2.Text := InverteTexto(Edit1.Text);

bingo

[richard1994x 0]

vlw cara, eu te amo xD

[richard1994x 0]

bdexterholland, eu tentei fazer isso no delphi mais não deu certo, ta aqui o erro:

 

 

For i := Lenght(Original) DownTo 1 Do

 

[Error] Unit1.pas(32): Undeclared identifier: 'Lenght'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[kadu_17 3]

q tal dexa o delphi faze pra você

 

reversestring()

 

acho q eh assim xD

 

testa ai

 

edit1.text:=reversestring(edit2.text)

[richard1994x 0]

kadu_17, consegui, vlw cara, vlw mesmo.

 

Só para o pessoal que utilizar esse tópico para ajuda.

 

Adicione StrUtils ao uses, caso contrário irá dar erro.

 

 

Valeu a todos do fórum.

[bdexterholland 0]

não conhecia o ReverseString ... =/

 

richard, eu escrevi o comando de forma errada, o certo seria: Length