Fórum Inverter palavavras #300466
24/10/2005
0
Gostaria de saber o código para inverter uma palavra.........
escrevar em um edit e mostrar no outro invertida.
VAleuuuu..
escrevar em um edit e mostrar no outro invertida.
VAleuuuu..
Tiagomachado
Curtir tópico
+ 0
Responder
Posts
24/10/2005
Imoreira
var
x:integer;
begin
edit2.clear;
for x:=length(edit1.text) downto 1 do begin
edit2.text:=edit2.text+copy(edit1.text,x,1);
end;
end;
x:integer;
begin
edit2.clear;
for x:=length(edit1.text) downto 1 do begin
edit2.text:=edit2.text+copy(edit1.text,x,1);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)