delphi下怎样把1、2、...10的阿拉伯数字换成一、二......十的中文数字？

用edit1用来输入显示，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
s :string;
const
arnum :array[1..10] of string=('一','二','三','四','五','六','七','八','九','十')；
begin
i :=strtoint(edit1.Text);
s:=arnum[i];
edit1.Text :=s;
end;

楼上的，本来就是数字，不需要读字符~~
直接用case语句吧~~
function change(i; integer): string;
begin
case i of
1: result := '一';
2: result := '二';
...
10: result := '十';
end;
end;

只能用分支语句了 注意 在case '1'后面要读取下一个字符 如果下个'0' 这个分支就给变量赋值等于"十"(字符串) 否则赋值"一" 本人QQ184863469