delphi一句话帮助终

aArabics: array[1..13] of integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400,

500, 900, 1000);

var

i: integer;

begin

result := '''''''';

for i := 13 downto 1 do

while (iDecimal >= aArabics[i]) do

begin

iDecimal := iDecimal - aArabics[i];

result := result aRomans[i];

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(DecToRoman(5));

end;

3. 格式化整数显示

使用FormatFloat函数可以解决你很多问题。例如把1200000格式化为1,200,000输出

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!