怎样将一个数字如“1997”转换为“一九九七”？

Question

procedure TFrmMain.Button1Click(Sender: TObject);
var
  S:String;
  i:Integer;
  ResultStr:String;
begin
  S := Edit1.Text;
  ResultStr := '';
  for i:=1 to Length(S) do
  begin
    if S[i]='1' then ResultStr := ResultStr + '一'
    else if S[i]='2' then ResultStr := ResultStr + '二'
    else if S[i]='3' then ResultStr := ResultStr + '三'
    else if S[i]='4' then ResultStr := ResultStr + '四'
    else if S[i]='5' then ResultStr := ResultStr + '五'
    else if S[i]='6' then ResultStr := ResultStr + '六'
    else if S[i]='7' then ResultStr := ResultStr + '七'
    else if S[i]='8' then ResultStr := ResultStr + '八'
    else if S[i]='9' then ResultStr := ResultStr + '九'
    else if S[i]='0' then ResultStr := ResultStr + '零' 
  end;
  Edit2.Text := ResultStr;
end;

Answer 1

//我也来玩
function f(mStr: string): string;
const
  cList: array['0'..'9'] of string =
('零', '一', '二', '三', '四', '五', '六', '七', '八', '九' );
begin
  Result := '';
  for I := 1 to Length(mStr) do 
    Result := Result + cList[mStr[I]];
end;

Answer 2

//再玩
function f(mNumber: Integer): string;
const
  cList: array['0'..'9'] of string =
('零', '一', '二', '三', '四', '五', '六', '七', '八', '九' );
var
  I: Integer;
  S: string;
begin
  S := IntToStr(mNumber);
  Result := '';
  for I := 1 to Length(S) do 
    Result := Result + cList[S[I]];
end;