随笔分类 - delphi
摘要：unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V
阅读全文
摘要：type TForm8 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TmyKeyValue ...
阅读全文
摘要：//需要引用System.IOUtils单元procedure TForm7.Button3Click(Sender: TObject); var sFileName: string; tstream: TStreamWriter; begin Memo1.Clear; Memo1.Lines.Add(TPath.GetFileName(Application.ExeName))...
阅读全文
摘要：软件-软体 鼠标-滑鼠 程序-程式 对象-物件 类型-型别 窗体-表单 堆栈-堆叠 删除-洗掉 声明-宣告 调用-呼叫 变量-变数 数据-资料 接口-介面 进程-行程 指针-指标 内存-记忆体 线程-执行绪 配置文件-组态档 面向对象-物件导向
阅读全文
摘要：需要引用SpeechLib_TLB.pas 文件
阅读全文
摘要：procedure TForm3.cxButton_moveDownClick(Sender: TObject); //下移 var i: Integer; recNo: Integer; //记录下位置 strName, stype, saddress, num: string; begin //i := cxGrid1DBTableView1.Controller.Selec...
阅读全文
摘要：同时设置form的属性： 运行程序，按F1会提示
阅读全文
摘要：MD5 SHA1 SHA2 可以引用System.Hash单元
阅读全文
摘要：先定义两个函数 计算函数执行时间
阅读全文
摘要：在Object Pascal里面，我们可以把任意两个数字（实数或整数都行）相除，可以直接使用 / 这个符号，计算 所得到的结果一定会是实数 。 如我们希望两个数字相除，得到整数的话，就要用 div 这个运算符号。
阅读全文
摘要：//在form上拖放一个TsgcWebSocketClient 控件，控件采用ws协议，代码如下 procedure TForm16.Button1Click(Sender: TObject); begin try sgcWebSocketClient1.Host := 'echo.websocke
阅读全文
摘要：1.File - new componet 2.选择要继承的控件 3.填写自定义控件的名称和控件在控件面板上的位置。 4.编写自定义控件代码，定义了PFaddress 属性。 以上是自定义控件代码编写完成，之后新建包package 5.把Mybutton.pas单元添加到包内，编译通过 6.通过co
阅读全文
摘要：{Register the Window class} function RegisterClassMeth: Boolean; var WindowClass: TWndClass; begin {setup our new window class} WindowClass.style := CS_HREDRAW or CS_VREDRAW; {set the class sty...
阅读全文
摘要：procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format('%s:%d', [mystring, st...
阅读全文
摘要：用fastreport 实现条码的生成和打印。源码参考我的github。 https://github.com/YoungTsuiMing/genBarcode
阅读全文
摘要：function TForm1.IsHaveChinese(judgeStr: string; var posInt: integer): boolean; var p: PWideChar; // 要判断的字符 count: integer; // 包含汉字位置 isHave: boolean; // 是否包含汉字返回值 begin isHave := false; // 是...
阅读全文
摘要：//Const关键字用于声明常量, 使用const声明的数据将不能在程序中被改变. //也可以用来声明函数参数, 用const指定的参数不允许在函数中改变. const MyFileName = 'Delphi'; const MyInteger = 100; //用Const声明常量不需要指出其数
阅读全文
摘要：//As用于将一个对象转换为另一个对象 procedure BtnClick(Sender:TObject); begin (Sender as TButton).Caption := 'Clicked'; end; //对于对象填充接口的转换, 必须用As进行 (HTTPRIO as IExp).
阅读全文
摘要：'BORLAND' { BORLAND } 'You''ll see' { You'll see } '''' { ' } '' { 空串 } ' ' { 空格 } #89#111#117 { You } #89'Y'#89 { YYY } #89 + 'Y' + #89 { YYY } #13#1
阅读全文