![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
carldada
这个作者很懒,什么都没留下…
展开
-
命名管道的使用
服务器断代码procedure TForm1.btnProcessCreateClick(Sender: TObject);var start: TStartupInfoA;begin //1:创建管道 CreatePipe; ZeroMemory(@Start,Sizeof(Start)); start.cb := SizeOf(start); start.hStdOutput := 0; start.hStdInput := 0;...原创 2020-10-16 17:38:31 · 415 阅读 · 0 评论 -
interface的内存自动释放的例子1
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type IMyinterface = interface function GetResult: Double; end;...原创 2019-03-15 16:30:31 · 232 阅读 · 0 评论 -
Delphi代码和断点错位的问题
问题在编写Delphi的时候遇到一次代码错位的情况,导致代码无法自动补齐,Warning和Error也错位,调试的时候断点也错位。尝试过删掉所有的回车,再重新加回车,依然有错位情况。也尝试过将但文件导入到NotePad和UltraEdit都没有解决该问题, 解决方法用CnPack工具的“代码格式化”格式完当前源文件之后解决了该问题。...原创 2019-02-21 08:53:40 · 718 阅读 · 0 评论 -
Synchronize使用(VCL的同步)
unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SyncObjs;type TMyThread = class(TThread) private FCountMs: Integer; ...原创 2019-01-26 00:53:58 · 254 阅读 · 0 评论 -
重载TPersistent类的AssignTo
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyClass = class(TPersistent) private FMsg: string; pr...原创 2019-01-25 14:23:16 · 470 阅读 · 0 评论 -
数组拷贝,静态数组并非是指针
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyArray = array [0..5] of Integer; TForm1 = class(TForm) ...原创 2019-01-25 14:13:07 · 245 阅读 · 0 评论 -
DLL库的动态调用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm2 = class(TForm) btn1: TButton; procedure btn1Click...原创 2019-01-25 13:35:14 · 203 阅读 · 1 评论 -
DLL的静态调用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click...原创 2019-01-25 13:30:45 · 492 阅读 · 1 评论 -
DLL的创建
library Project1;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your ...原创 2019-01-25 13:27:29 · 118 阅读 · 1 评论 -
字符串与字符数组、字符指针的赋值
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm5 = class(TForm) btn1: TButton; btn2: TButton; ...原创 2019-01-25 13:22:03 · 935 阅读 · 1 评论 -
通过开放数组,获取动态数组的长度
unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm2 = class(TForm) btn1: TButton; mmo1: TMemo; pr...原创 2019-01-25 13:22:14 · 701 阅读 · 1 评论 -
自定义消息处理的步骤
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;type //定义自己的消息 TMyMsg = record FmsgID: Integer; ...原创 2019-01-25 13:22:25 · 559 阅读 · 1 评论