一个整数转为字符输出的函数

ybli 2003-08-18 06:20:21
把一个整数转换为形如NNN,NNN,NNN的字符串输出,要求不能用inttostr之类的函数
...全文
52 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ybli 2003-08-18
  • 打赏
  • 举报
回复
楼上2位的不错,前面几个的答案虽然对,但是没看清楚要求,但还是谢谢你们
fontain 2003-08-18
  • 打赏
  • 举报
回复
简化:
function Convert(para:integer):string;
begin
if para<1000 then begin
result:=chr(para div 100+48)
+chr((para mod 100) div 10+48)
+chr(para mod 10+48);
end
else begin
result:=Convert(para div 1000)+','+chr((para mod 1000) div 100+48)
+chr(((para mod 1000) mod 100) div 10+48)
+chr((para mod 1000) mod 10 +48);
end;
end;
fontain 2003-08-18
  • 打赏
  • 举报
回复
贴错了,应该是:
function Convert(para:integer):string;
var s:string;
begin
if para<1000 then begin
result:=chr(para div 100+48)
+chr((para mod 100) div 10+48)
+chr(para mod 10+48);
end
else begin
s:=Convert(para div 1000);
result:=s+','+chr((para mod 1000) div 100+48)
+chr(((para mod 1000) mod 100) div 10+48)
+chr((para mod 1000) mod 10 +48);
end;
end;
fontain 2003-08-18
  • 打赏
  • 举报
回复
function Convert(para:integer):string;
var s:string;
begin
if para<1000 then begin
s:=chr(para div 100+48)
+chr((para mod 100) div 10+48)
+chr(para mod 10+48);
end
else begin
s:=Convert(para div 1000);
result:=s+','+chr((para mod 1000) div 100+48)
+chr(((para mod 1000) mod 100) div 10+48)
+chr((para mod 1000) mod 10 +48);
end;
end;
Cipherliu 2003-08-18
  • 打赏
  • 举报
回复
while Value>10 do
改成
while Value>=10 do

Cipherliu 2003-08-18
  • 打赏
  • 举报
回复
function InttoStrA(Value: integer): string;
var
OutChar:Char;
Count:integer;
begin
Result:='';
Count:=0;
while Value>10 do
begin
OutChar:=Char((Value Mod 10)+Ord('0'));
Value:=Value div 10;
Inc(Count);
Result:=OutChar+Result;
if (Count mod 3)=0 then
Result:=','+Result;
end;
Result:=Char(Value+Ord('0'))+Result;
end;

测试通过,给分吧.
编程老猫 2003-08-18
  • 打赏
  • 举报
回复
我写的一个函数:
function GetFileSizeString(const Size: Integer): string;
var
I,J: Integer;
begin
Result := IntToStr(Size);
J := 0;
for I := Length(Result) downto 2 do
begin
Inc(J);
if J = 3 then
begin
Insert(',',Result,I);
J := 0;
end;
end;
end;
xgy88 2003-08-18
  • 打赏
  • 举报
回复
up
天剑68 2003-08-18
  • 打赏
  • 举报
回复
自己写函数

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧