从网上下载来的这段大小写转换代码怎么用呀？

Question

function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
cCha:array[0..1, 0..12]of string =
(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'),
( '元','零','零','零','万','亿','亿','零','零','万','亿','亿','元'));
var i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%15d',[round(n * 100)]);
for i := 0 to 14 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then continue
else result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
end;
for i:= 0 to 12 do
Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
if pos('零分',result)=0
then Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
else Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
Result := StringReplace(Result, '零分','', [rfReplaceAll]);
end;

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationfunction NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
cCha:array[0..1, 0..12]of string =
(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'),
( '元','零','零','零','万','亿','亿','零','零','万','亿','亿','元'));
var i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%15d',[round(n * 100)]);
for i := 0 to 14 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then continue
else result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
end;
for i:= 0 to 12 do
Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
if pos('零分',result)=0
then Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
else Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
Result := StringReplace(Result, '零分','', [rfReplaceAll]);
end;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := NumtoChar(StrToFloat(Edit1.Text));  //运行是在Edit中输入数字,然后点按钮
end;end.

Answer 2

格式看起来真难受。
function NumToChar(const n: Real): string; //¿ÉÒÔµ½ÍòÒÚ£¬²¢ÇÒ¿ÉÒÔËæ±ãÀ©´ó·¶Î§
const
    cNum: WideString = 'ÁãÒ¼·¡ÈþËÁÎé½Æâ°Æ¾Á--ÍòǪ°ÛÊ°ÒÚǪ°ÛÊ°ÍòǪ°ÛÊ°Ôª½Ç·Ö';
    cCha:array[0..1, 0..12]of string =
                                (( 'ÁãÔª','ÁãÊ°','Áã°Û','ÁãǪ','ÁãÍò','ÁãÒÚ','ÒÚÍò',
                                'ÁãÁãÁã','ÁãÁã','ÁãÍò','ÁãÒÚ','ÒÚÍò','ÁãÔª'),
                                ( 'Ôª','Áã','Áã','Áã','Íò','ÒÚ','ÒÚ',
                                'Áã','Áã','Íò','ÒÚ','ÒÚ','Ôª'));
var
    i : Integer;
    sNum,sTemp : WideString;
begin
    result :='';
    sNum := format('%15d',[round(n * 100)]);
    for i := 0 to 14 do
    begin
        stemp := copy(snum,i+1,1);
        if stemp=' ' then
            continue
        else
            result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
    end;
    for i:= 0 to 12 do
        Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
    if pos('Áã·Ö',result)=0 then
        Result := StringReplace(Result, 'Áã½Ç', 'Áã', [rfReplaceAll])
    else
        Result := StringReplace(Result, 'Áã½Ç','Õû', [rfReplaceAll]);
    Result := StringReplace(Result, 'Áã·Ö','', [rfReplaceAll]);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption:=NumToChar(StrToFloat(Edit1.Text));
end;

Answer 3

function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
const
    cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
    cCha:array[0..1, 0..12]of string =
                                (( '零元','零拾','零佰','零仟','零万','零亿','亿万',
                                '零零零','零零','零万','零亿','亿万','零元'),
                                ( '元','零','零','零','万','亿','亿',
                                '零','零','万','亿','亿','元'));
var
    i : Integer;
    sNum,sTemp : WideString;
begin
    result :='';
    sNum := format('%15d',[round(n * 100)]);
    for i := 0 to 14 do
    begin
        stemp := copy(snum,i+1,1);
        if stemp=' ' then
            continue
        else
            result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
    end;
    for i:= 0 to 12 do
        Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
    if pos('零分',result)=0 then
        Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
    else
        Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
    Result := StringReplace(Result, '零分','', [rfReplaceAll]);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption:=NumToChar(StrToFloat(Edit1.Text));
end;

Answer 4

那我如何通过查询语句，在edit1中输入商家名称='小王'调出数据库中的金额的小写数据在dbtext上
同时在label1上显示对应dbtext上的值的大写金额？？？？
请举例？？？

Answer 5

直接用：
    Label1.Caption:=NumToChar(Query1.FieldByName('金额').AsFloat);