![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 76
gongzhijia
这个作者很懒,什么都没留下…
展开
-
Delphi中实现汉字拼音声母查询
Delphi中实现汉字拼音声母查询,unit代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Lis原创 2005-01-31 11:26:00 · 1669 阅读 · 1 评论 -
Delphi中实现金额小写转化成大写
function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围const cnum: array[0..9] of string = (零,壹,贰,叁,肆,伍,陆,柒,捌,玖); cunit: array[0..14] of string = (万,仟,佰,拾,亿原创 2005-02-16 14:17:00 · 1703 阅读 · 0 评论 -
delphi中调用tuxedo示例
delphi中的代码:procedure TForm1.Button1Click(Sender: TObject);var ret:Longint; SendBuf,RcvBuf,PKH_MC,PKH_DZ:pchar; fQF_JE:^Real; ilen,rlen:Longint; TPTTpinit:PTTpinit;const M=32;begin TPTTpinit:=原创 2006-04-30 09:47:00 · 2304 阅读 · 0 评论