随笔分类 - delphi
摘要：function bytetoexcel(excelContent, filepath: string);beginvar P: PChar; B: array of Byte; imgstream: TBytesStream; ps: TMemoryStream; ss: TStringStream; begin ss := TStringStream.create(e...
阅读全文
摘要：Delphi中的窗体分为模式窗体和无模式窗体。二者的区别在于，用户可以在无模式窗体和其他窗体之间切换。这样，用户就可以同时工作于一个应用程序的几个部分。Delphi中窗体的初始化有两种情况，动态创建，和自动创建。通过show显示一个无模式窗体，ShowModal显示一个模式窗体。窗体有创建对应的也要
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject); const {$I str.inc} begin ShowMessage(MSG); end; str.inc 放在源码同目录 MSG = 'abc';
阅读全文
摘要：由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。 针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。 Unit1; interface
阅读全文
摘要：1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - StartTime) + ' ms'); 8 end;
阅读全文
摘要：1 procedure TFormTestRichText.btn1Click(Sender: TObject); 2 begin 3 //cxrchdt1.Lines.SaveToFile('d:\test.txt'); 4 mStream := TMemoryStream.Create; 5 cxrchdt1.Lines.SaveToStream(mStream); ...
阅读全文
摘要：Pint:^string;在这里将^放在数据类型之前,说明是声明的字符串指针类型!如果想取出指针引用的值的话,就将^放在声明的类型后就可以了,比如:Pint^想取Pint类型的所引用地址的话,就将@放在之前就可以了,比如:@Pint ^type 表示指向这种类型的指针 point^ 返回指针指向的变
阅读全文
摘要：createForm可以创建任何TComponent派生的类对象，因此我们可以使用它创建任何的VCL组件，例如下面的程序 procedure TForm6.btn1Click(Sender: TObject);var ameno: TMemo;begin Application.CreateForm
阅读全文
摘要：演示了PostMessage, SendMessage, WM_CHAR发送汉字。 源代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D
阅读全文
摘要：Delphi开发的调试技巧1、设置调试选项 Delphi主菜单。【Project】－>【Options】，或单击工程管理器中的【Project Options】按钮。显示Project Options,选择Complier <1>选中 Debug Information :把调试信息嵌入到DCU单元
阅读全文
摘要：01. 修改主程序的编译输出目录：Project - Options - Delphi Compiler - Output directory02. 修改单元文件编译输出目录：Project - Options - Delphi Compiler - Unit output directory03.
阅读全文
摘要：1、只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种
阅读全文
摘要：引入 Vcl.Themes, Vcl.Styles, 设置主题类型 TStyleManager.TrySetStyle('Turquoise Gray'); 或则在窗体代码中实现 unit Unit14; interface uses Winapi.Windows, Winapi.Messages,
阅读全文
摘要：function GB2Big(GB: string): string; //简体转换成繁体var Len: Integer;begin Len := Length(GB); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_
阅读全文
摘要：unit Unit13; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,
阅读全文
摘要：//最常用的 string var str: string; {定义} begin str := '万一'; {赋值} ShowMessage(IntToStr(Length(str))); {长度是: 4} end; //长字符串 AnsiString; 在当前版本(2007)中的默认状态下, S
阅读全文
摘要：var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject); var s1: AnsiString; //单字节储存 s2: WideString; //双字节储存 begin s1 := '万一OK'; s2 := '万一OK'; ShowMessage(s1[1
阅读全文
摘要：BPL 英文全称 Borland Package library ，是一种特殊的DLL文件，用于代码重用和减少可执行文件。编译bpl时，仅需要添加相应功能的pas文件，如果有窗体，则需要添加dfm文件。既然是DLL文件，那就是在运行时所需要的文件。BPL相当于C++中的DLL DCP 英文全称：de
阅读全文