Fórum Inverter mensagem #222894
28/03/2004
0
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]
[b:26c4e28ccc][color=red:26c4e28ccc]Título eidtado pelo Moderador (AZ) - Removido: ´Gostaria de uma ajuda´[/color:26c4e28ccc][/b:26c4e28ccc]
Rafaeldonelli
Curtir tópico
+ 0
Responder
Posts
28/03/2004
Fabio.hc
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)