随笔分类 -  Delphi

摘要：这个是delphi6 以后带来的bug。解决办法：将Label的font设为字体改为,宋体, 9号, 字符集, chinese_gb2312 , AutoSize设为true就行了。 阅读全文

摘要：前言Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉了汇编语言。（注，下文中的函数与过程统称为函数。）一．如何在Delphi程序中增加一段汇编代码？很简单，用asm...end把你的汇编代码封装起来，再把它放到你需要它的位置．这个需要它的位置可以是函数的begin与end之间，也可以是Program的begin与end之间，当然，好可以是initiali 阅读全文

摘要：try ....(需要执行的代码)except on e:exception do application.MessageBox(pchar(e.Message), '错误提示', 0);end; 阅读全文

摘要：1.引用 TFORM2. 2.在FORM1中使用如下代码创建 //第一种方式procedure TForm1.btn1Click(Sender: TObject);beginWith TForm2.Create(Application) doTry ShowModal;finally free;end;end; //第二种方式procedure TForm1.btn2Clic... 阅读全文

摘要：完整的代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) lbl1: TLabel; private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public dec... 阅读全文

摘要：procedure TForm1.btn1Click(Sender: TObject);var path:string;begin path := edt1.Text; if path '' then begin path := StringReplace(path, '/', '\', [rfReplaceAll]); if not DirectoryExists(path) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirector... 阅读全文

摘要：procedure TForm1.btn1Click(Sender: TObject);var i,j,Count:Integer;begin i:=10; j:=20; asm // MOV EAX,i+j; //不能这样使用 MOV EAX,i; //赋值 MOV ECX,j; ADD EAX,ECX; {EAX:=EAX+ECX;} //进行加法运算 MOV Count,EAX; end; Showmessage(IntToStr(Count)); {30}end;end. 阅读全文