随笔分类 -  Delphi

摘要:定时器20毫秒运行一次,单字符读取,如果读取到就保存到全局变量receData中,否则就输出到文本框中,并重置receData。 优点:单字符读取,解决了按长度读取的弊端,如果按长度读取,很多时候并不知道究竟要读取多长,有的时候能读取完整,有的时候只读取了部分。 procedure TfrmLC.t 阅读全文
posted @ 2024-06-19 14:25 huiy_小溪 阅读(34) 评论(0) 推荐(0) 编辑
摘要:var s:string; p:PChar; a:array[1..10] of char; b:array[1..10] of byte; 转换: 1.string 到 PChar p:=PChar(s); 2. PChar 到 string s:=p; 3. PChar 到 array StrC 阅读全文
posted @ 2024-04-07 08:23 huiy_小溪 阅读(168) 评论(0) 推荐(0) 编辑
摘要:打开一个工程后,点击保存或编译后,就报这个错误,发现是TMSComm的问题。 可是在"Import ActiveX"界面,发现该组件已经存在了,但是无法安装,点击"intsall"就报“a class named 'TMSComm' is already installed”。 解决办法: 点击 F 阅读全文
posted @ 2024-04-02 13:46 huiy_小溪 阅读(86) 评论(0) 推荐(0) 编辑
摘要:原文地址:https://www.delphitop.com/html/chengxu/2732.html 一、默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string); begin OrigNum:=Value+' Me'; lblReturn 阅读全文
posted @ 2023-11-18 14:39 huiy_小溪 阅读(198) 评论(0) 推荐(0) 编辑
摘要:情况说明:DBGridEh的datasouce是ds1(tdatasouce),dataset是qry1(TDaoQuery), con1是TADOConnection。最初用qry1查询数据:qry1.Connection := con1; qry1.Close; qry1.SQL.Clear; 阅读全文
posted @ 2022-06-24 10:59 huiy_小溪 阅读(198) 评论(0) 推荐(0) 编辑
摘要:解决办法: 去除DEP保护。 阅读全文
posted @ 2022-06-13 16:10 huiy_小溪 阅读(195) 评论(0) 推荐(0) 编辑
摘要:解决办法:关闭工程。找到A.~dfm,用编辑器打开,然后另存为 A.dfm。再 打开工程。 阅读全文
posted @ 2022-02-23 14:48 huiy_小溪 阅读(268) 评论(0) 推荐(0) 编辑
摘要:原文地址: Delphi线程简介 Create及其参数、Resume、Suspend https://www.cnblogs.com/xumenger/p/4440620.html TThread在Classes单元里的声明如下 先说一下TThread的Create的参数 阅读全文
posted @ 2021-12-24 11:00 huiy_小溪 阅读(795) 评论(0) 推荐(0) 编辑
摘要:检查工程是否全部编译通过,发现错误的地方全部修改好。 @ 取址 ^ 在后 表示 获得这个变量代表的真实值,在前表示声明一个指针类型的变量 # 十进制符 $ 十六进制符 str[1]开始是字符,str[0]是个整数,是字符串的长度。 阅读全文
posted @ 2021-10-21 13:22 huiy_小溪 阅读(52) 评论(0) 推荐(0) 编辑
摘要:java URLEncode = Delhpi httpencode(utf8encode())反之java URLDecode = Delhpi utf8decode(httpdecode()) 阅读全文
posted @ 2020-07-30 10:25 huiy_小溪 阅读(150) 评论(0) 推荐(0) 编辑
摘要:解决办法,在自动生成的代码中去除一行(红框处): 阅读全文
posted @ 2020-07-16 16:26 huiy_小溪 阅读(245) 评论(0) 推荐(0) 编辑
摘要:首部 function Languages: TLanguages; 功能 返回系统语言对象 说明 通过此函数可以得到系统的语言环境 参考 type SysUtils.TLanguages 例子 ///////Begin Languages procedure TForm1.Button1Click 阅读全文
posted @ 2020-05-28 17:46 huiy_小溪 阅读(371) 评论(0) 推荐(0) 编辑
摘要:首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协 阅读全文
posted @ 2020-05-28 17:44 huiy_小溪 阅读(218) 评论(0) 推荐(0) 编辑
摘要:原文:https://www.cnblogs.com/Little-Star/p/7541389.html字符串处理函数 Unit System函数原型 function Concat(s1 [, s2,..., sn]: string): string; 说明 与 S := S1 + S2 + S 阅读全文
posted @ 2020-05-22 16:41 huiy_小溪 阅读(406) 评论(0) 推荐(0) 编辑
摘要:auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc API 终止一项打 阅读全文
posted @ 2020-05-22 10:50 huiy_小溪 阅读(1151) 评论(0) 推荐(0) 编辑
摘要:一、序言 二、通用源代码格式规则 2.1 缩格 2.2 页边空格 2.3 Begin...End 配对 三、Object Pascal 3.1 括号 3.2 保留字和关键字 3.3 过程和函数(例程) 3.3.1 命名/格式化 3.3.2 形式参数 3.3.2.1 格式化 3.3.2.2 命名 3. 阅读全文
posted @ 2020-05-21 14:07 huiy_小溪 阅读(493) 评论(0) 推荐(0) 编辑
摘要:放在前面的public变量和单元可以被其它单元直接引用。放在后面的public变量和单元只能被本单元所引用。 阅读全文
posted @ 2020-05-21 11:38 huiy_小溪 阅读(590) 评论(0) 推荐(0) 编辑
摘要:create后一定要free吗?简单举例 procedure a; var x:TX; begin x:=TX.create; //do someting; x.free //如果我这里不free,到了这个end不就是相当于C中的}自动释放吗? 也就是说在此处这个free是多余的。对吗? end; 阅读全文
posted @ 2020-05-20 16:44 huiy_小溪 阅读(480) 评论(0) 推荐(0) 编辑
摘要:转载地址:https://www.cnblogs.com/mumble/archive/2011/05/25/2056462.htmlfunction Format(const Format: string; const Args: array of const): string; overload 阅读全文
posted @ 2020-05-20 11:44 huiy_小溪 阅读(212) 评论(0) 推荐(0) 编辑
摘要:转载地址:http://blog.sina.com.cn/s/blog_44fa172f0101cur1.html1)destroy:虚方法释放内存,在Tobject中声明为virtual,通常是在其子类中override 它,且要加上inherited关键字,才能保证派生类对象正确地被销毁;但de 阅读全文
posted @ 2020-05-20 10:15 huiy_小溪 阅读(350) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示