delphi一句话帮助终(2)

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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有