Delphi数字反转

题目要求：
写一个函数实现以下功能：输入的值为整数，输出为整数，要求输出的整数是将输入的整数倒转，比如输入的是123，则输出的是321，要求代码正常运行，不报中断错误.
代码如下，有参考http://www.javaeye.com/problems/3313页面的Java代码

Code
 1 program Project1;
 2 
 3 {$APPTYPE CONSOLE}
 4 
 5 uses
 6   SysUtils;
 7 var
 8   Num : Integer;
 9   function Convert(Num : Integer) : Integer;
10   var
11     Sign, i : Integer;
12   begin
13     if Num = 0 then
14     begin
15       Result := Num;
16       Exit;
17     end;
18 
19     Sign := Num div Abs(Num);
20     Num := Num * Sign;
21     Result := 0;
22     while Num > 0 do
23     begin
24       i := Num mod 10;
25       Num := Num div 10;
26       Result := Result * 10 + i;
27     end;
28     Result := Result * Sign;
29   end;
30 
31 begin
32   try
33     { TODO -oUser -cConsole Main : Insert code here }
34     Readln(Num);
35     Writeln(Format('输入的整数是:%d', [Num]));
36     Writeln(Format('反转后的整数是:%d', [Convert(Num)]));
37   except
38     on E:Exception do
39     begin
40       if E is EInOutError then
41         Writeln(Format('输入的数字超出最大范围%d', [MaxInt]))
42       else
43         Writeln(E.Classname, ': ', E.Message);
44     end;
45   end;
46   Readln;
47 end.

 

转载于:https://www.cnblogs.com/wyz840204/archive/2009/09/23/1572946.html