Inverter mensagem

Delphi

28/03/2004

Gostaria de saber como faço para que após digitar uma mensagem ela seja mostrada em um objeto label mas ao contrario

[b:26c4e28ccc][color=red:26c4e28ccc]Título eidtado pelo Moderador (AZ) - Removido: ´Gostaria de uma ajuda´[/color:26c4e28ccc][/b:26c4e28ccc]


Rafaeldonelli

Rafaeldonelli

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

28/03/2004

Tente assim:

   Label1.Caption:=ReverseStr(Edit1.Text);

Function ReverseStr (S : ShortString) : ShortString;
var
   I : Integer;
begin
   Result := ´´;
   For I := Length(S) DownTo 1 Do
      Result := Result + S[I];
end;



GOSTEI 0
POSTAR