随笔分类 -  Delphi

Delphi FMX下Edit限制只能输入数字和一个小数点
摘要：VCL下可以在OnKeyPress事件下这样写 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then key:=#0; if (key= 阅读全文
posted @ 2020-10-30 11:28 大明星啊 阅读(380) 评论(0) 推荐(0)
Delphi 函数返回多个值
摘要：一、函数的返回值使用 记录 record 、数组 array 等数据类型。 示例代码如下： Type TmyData = Record 先定义一个Record有三个返回值 Data1: string; Data2: string; Data3: string; end; //定义 function的 阅读全文
posted @ 2020-10-12 22:20 大明星啊 阅读(441) 评论(0) 推荐(0)