Inverter palavavras
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
Curtidas 0
Respostas
Imoreira
24/10/2005
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;
GOSTEI 0