delphi中有没有直接将阿拉伯数字转换成中文的一、二、三、四...十一、十二，的方法或函数可以调用 5
2个回答
展开全部
var
s,s1:string;
i,m:integer;
begin
i:=123;
s:=inttostr(i);
i:=length(s);
for m:=0 to i do
begin
case s[m] of
'1':s1:=s1+'一';
'2':s1:=s1+'二';
'3':s1:=s1+'三';
end;
end;
showmessage(s1);
end;
s,s1:string;
i,m:integer;
begin
i:=123;
s:=inttostr(i);
i:=length(s);
for m:=0 to i do
begin
case s[m] of
'1':s1:=s1+'一';
'2':s1:=s1+'二';
'3':s1:=s1+'三';
end;
end;
showmessage(s1);
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
