Ejercicios Basicos 1 : Invertir un Numero

Function Invertir(Numero:Integer ):Integer;

var 

Inv,Residuo:Integer;

begin

Inv:=0;

While (Numero>0) do

  begin

Residuo:= Numero mod 10;

Inv:=Inv*10+Residuo;

Numero:=Numero div 10;

 end;

Result:=Inv;

end;

Forma de llamar a la función :

//dentro de un botón en un formulario

begin

edit2.text:=inttostr(clase.Invertir(strtoint(edit1.text)));

end;