随笔分类 - Delphi
摘要：function TForm1.BaseToJpg(BaseStr: string): TJpegImage;var JpgStream: TMemoryStream; StrStream: TStringstream;begin JpgStream := TMemoryStream.Create;
阅读全文
posted @ 2020-02-16 10:10
绿水青山777
摘要：Delphi 1 把字符串直接保存为文件的方法 2 将文件直接作为字符串读出的方法 3 把字符串转化为内存流的方法 4 把内存流转化为字符串的方法 代码如下： function StringToFile(mString: string; mFileName: TFileName): Boolean;
阅读全文
posted @ 2020-02-11 17:15
绿水青山777
摘要：procedure DrawVirtualLine(Cvs: TCanvas;FromP,ToP: TPoint);var i: integer; Xl: Single; x,y: Integer;begin Cvs.MoveTo(FromP.x,FromP.y); if FromP.x = ToP
阅读全文
posted @ 2020-01-19 15:37
绿水青山777
摘要：一个队列类的实现(比delphi自带的速度快70倍) 测试结果 实现的代码 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}us
阅读全文
posted @ 2020-01-18 08:51
绿水青山777
摘要：NativeExcel procedure Tsave.CopySGDataToExcel(Target: TStringGrid;FileName: string);variCount, jCount: Integer;XLApp: Variant;Sheet: Variant;beginScre
阅读全文
posted @ 2020-01-16 16:13
绿水青山777
摘要：只要设置编辑框的Properties.EditValueFormat的值为除了cvfInteger以外的任意值即可。后者（cfvInteger）会让编辑框把它的控件值表示为所勾选项目的二进制组合。每个选项代表一个2的N次方的整数值。也就是选项的相关整数值为1、2、4、8、16或其它。控件的值就是这些
阅读全文
posted @ 2020-01-16 15:56
绿水青山777
摘要：奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit 在Delphi中使用PrintDialog打印对话框的时候，这个控件有三个选项，就是PrintRang那个属性的三个选项，其中有一个选项三，让我们自定义选择页码范围来打印。但是比较蛋疼的是，这个地方选中了之后啥子效果
阅读全文
posted @ 2020-01-15 12:00
绿水青山777
摘要：项目，增加了一个单元后，经常在第二次编译时出现 Internal error: URW3537的错误： 原因： 主要是type ＝ function 的原因，常出现与dll调用 解决方法： 1、全部编译 comiple all 2、把type ＝function 移动到最开始的type 处；
阅读全文
posted @ 2020-01-14 16:02
绿水青山777
摘要：delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象，请问我在调用Clear 方法的时候该对象有没有被释放 object里存的只是指向对象的指针，clear只是把
阅读全文
posted @ 2020-01-14 09:22
绿水青山777
摘要：Delphi中，自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤：1>. 首先定义一个消息标识符常量；如：WM_MYMessage = WM_USER+ 5；（标识符常量的取值范围为WM_USER~WM_APP-1） 2>. 在单元文件中定义消息响应过程和消息标识符常量。
阅读全文
posted @ 2020-01-09 19:04
绿水青山777
摘要：unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.DateUtils, Vcl.Cont
阅读全文
posted @ 2020-01-08 18:52
绿水青山777
摘要：procedure TForm1.lv1DragDrop(Sender, Source: TObject; X, Y: Integer);var aItem, bItem: TListItem;begin if(Source is TListView) then begin bItem := (So
阅读全文
posted @ 2019-12-25 15:42
绿水青山777
摘要：procedure TForm1.Button6Click(Sender: TObject);var i:Integer;str:string;begin i := 255; ShowMessage(IntToHex(i,8)); ShowMessage(Format('%.10x',[i]));
阅读全文
posted @ 2019-12-25 14:14
绿水青山777
摘要：1.通过函数转 function Base64ToStr1(const Base64: string): string;var I, J, K, Len, Len1: Integer; B4: array[0..3] of Byte;begin if Base64 = '' then begin R
阅读全文
posted @ 2019-12-25 09:03
绿水青山777
摘要：procedure TForm1.Button1Click(Sender: TObject);begin cbb1.Items.Clear; cbb1.Items.AddObject('a',TObject(NewStr('a1'))); cbb1.Items.AddObject('b',TObje
阅读全文
posted @ 2019-12-21 10:06
绿水青山777
摘要：var hwnd : Integer;begin --其实源控件只要设置焦点就可以了 DBGridEh1.SetFocus; hwnd := FindWindow('Form1', nil); // 关键要获得获取信息的控件的句柄 SetForegroundWindow(hwnd); keybd_e
阅读全文
posted @ 2019-12-18 14:44
绿水青山777
摘要：TDBGridEh 允许在选定的区域上进行选择记录，列以及矩形区域等操作： ×允许多选会影响下面这些属性： Options 选项中的 dgMultiSelect 属性 - 设置是否允许多选。 Options 选项中的 dghClearSelection 属性- 设置在用户移到下一个单元时是否清除已选
阅读全文
posted @ 2019-12-17 15:00
绿水青山777
摘要：Delphi通过Map文件查找内存地址出错代码所在行 一 什么是MAP文件 什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。 如果要查找代码
阅读全文
posted @ 2019-12-17 11:33
绿水青山777
摘要：procedure TForm1.SetAutoRun(ok: boolean);var Reg: TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg := TRegistry.Create; try //创建一个新键 Reg.RootKey := HKEY_
阅读全文
posted @ 2019-11-20 15:43
绿水青山777
浙公网安备 33010602011771号