随笔分类 - delphi
摘要：Delphi的经典书籍：1、《Delphi 技术手册》 Ray Liscbner著 632页 65元 中国电力出版社2、《Delphi 5 开发人员指南》 Steve Teixeira & Xavier Pacheco著 1263页 138元 机械工业出版社3、《Delphi COM 深入编程》 E
阅读全文
摘要：var hAppMutex: THandle; //声明互斥变量begin hAppMutex := CreateMutex(nil, false,'WMS');// WMS应用程序名称 if ((hAppMutex <> 0) and (GetLastError() = ERROR_ALREADY
阅读全文
摘要：var str:string; begin str := 'abcdefghigklmn'; Delete(str,Length(str)-4,5); ShowMessage(str); end; var str:string; begin str := 'abcdefghigklmn'; Dele
阅读全文
摘要：function trimLeftZero(src:string):string;begin while copy(src,1,1)='0' do src:=copy(src,2,length(src)-1); Result := src;end;
阅读全文
摘要：FastMM 定位内存泄露的代码位置 开源的FastMM，使用很简单，在工程的第一行引用FastMM4即可(注意，一定要在第一个Uses的位置)，可以在调试程序时提示内存泄露情况，还可以生成报告。 在Delphi2007以后版本中，使用更加简单，只需要在工程开始的位置加上语句： ReportMemo
阅读全文
摘要：Type TControlCls = Class of TControl;function CreateComponent(ControlCls: TControlCls): TControl;begin result:=ControlCls.Create(Form1); ...end;functi
阅读全文
摘要：SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, pchar('yyyy-MM-dd')); //设置短日期格式 SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, pchar('yyyy
阅读全文
摘要：class function yxm.trimblank(s: string): string;var i, j: integer;begin repeat i := pos(' ', s); j := length(s); if i > 0 then s := copy(s, 1, i - 1)
阅读全文
摘要：在TPersistent的声明中多了M编译开关，当{$M +} 与{$TYPEINFO ON} 作用是一样的， 而{$M -} 与{$TYPEINFO OFF} 相同。当一个类在{$M +} 和{$M -}间声明时，程序编译器将为类生成与RTTI(Runtime Type Information)相
阅读全文
摘要：for i := 0 to cbb_controlmattype.Items.Count -1 do begin if cbb_controlmattype.Items[i].Selected = True then begin if cbb_controlmattype.Items[i].Expa
阅读全文
摘要：form创建时绑定 Self.cbb1.Treeview.OnClick := cbb1Click; Self.cbb1.Treeview.OnMouseDown := cbb1onMouseDown; 定义 procedure TForm6.cbb1onMouseDown(Sender: TObj
阅读全文
摘要：怎么改变Treeview中的图标? OnClick事件Click获取Node.text 批量处理及实现TreeView结点拖拽的实例 //这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTre
阅读全文
摘要：常用DELPHI控件属性事件设置说明 常用DELPHI控件属性事件设置说明 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQu
阅读全文
摘要：procedure TForm13.btn1Click(Sender: TObject);begin play_wav_bykeys('1',0);end;function TForm13.play_wav_bykeys(filename: string; xflag: Integer): bool
阅读全文
摘要：声明调用动态库方法 function HelloWorld(strIn, strOut: PChar): smallint; stdcall; far external 'YXMDll.dll' name 'HelloWorld'; 具体调用 strin := PChar(tmp); GetMem(
阅读全文
摘要：procedure TForm1.btn1Click(Sender: TObject); begin ShowMessage('这是ShowMessage消息框'); ShowMessage('这是ShowMessage换行消息框' + #13#10 +http://www.cnblogs.com/
阅读全文
摘要：procedure TFormSWITCHFILENAME.btn_changeClick(Sender: TObject); //替换文件名var dir: string; FileNameList: TStringList; RenameFile: file; FileName:string;
阅读全文
摘要：下面的代码是实现从客户端发送一个命令给服务端,服务端接收到命令后截取屏幕并发送给客户端,客户端接收保存显示客户端: var ftmpStream : TFileStream; bitmap:Tbitmap;begintrywith IdTCPClient do begin if connected
阅读全文
摘要：procedure TFmXX.BtnFindClick(Sender: TObject); var i : integer; begin inherited; for i := 0 to BTvCity.Items.Count -1 do begin {如果和文本框匹配} if BTvCity.I
阅读全文
摘要：保留根节点 var I : integer; begin for I := TreeView1.Items.Count -1 downto 1 do TreeView1.Items.Delete(TreeView1.Items[I]); end; 如果不保留： TreeView1.Items.Cle
阅读全文