Delphi
woolnil
这个作者很懒,什么都没留下…
展开
-
Delphi中限制文本框(TEdit)只能输入数字
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char); var edt: TEdit; str, strL, strR: string; p: integer; begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写). edt := TEdit(Sender); str :转载 2016-02-26 13:52:35 · 5766 阅读 · 0 评论 -
Delphi格式化函数Format、FormatDateTime和FormatFloat
1.Format 根据指定所需要的格式,格式化字符串。 原型: function Format(const Format: string; const Args: array of const): string; 例子: var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小转载 2017-06-09 16:58:43 · 547 阅读 · 0 评论 -
delphi2009 字符串转codepage编码
delphi2009中使用自带的TEncoding类进行解码时,部分utf-8字符无法正确解码,阿拉伯字符全部都为问号。所在使用api函数进行转换。type BArr=array of byte;Function Decode2Bytes(strInput:widestring;CodepageIdentifier:cardinal):BArr;var TLen,lngBufferSi...原创 2018-06-21 16:33:36 · 712 阅读 · 0 评论