摘要： 在有多个Form窗体时可以体现出来.用close是只关闭本窗体,而用Application.terminate是关闭整个程序,包括所有窗体.（1）当Close是一个主窗体时,程序会退出。Close会发生FormClose事件,FormCloseQuery事件。close，只是针对窗体。主窗体close以后程序就Application.Terminate了。 子窗体close以后。没释放，还可以Show出来。也是说主窗口的Close方法其实也是调用Application的Terminate来终止程序的。（2）Halt会发生FormDestory事件,，用于强行终止应用程序的执行，返回操作系统（非 阅读全文

摘要： 在打开文件中，先声明一个变量，Var MyText : TextFile;打开一个文件需要两个过程：1）AssignFile（MyText,’ MyTextFile.txt’）：作用是将文件变量与一个文件联系起来。2）然后再打开，打开文件有三种方式：（１） Rewrite(MyText)过程：创建并打开一个文件。如果文件已经存在，那么原文件将被覆盖。（２） Reset(MyText)过程以只读方式打开一个文件。（３） 用Append(MyText)过程向已存在的文件中追加文本。3) 关闭文件CloseFile（MyText） 阅读全文

摘要： 就是事件的载体，sender的类型是Tobject,比如你点击button1按钮，sender就是按钮。label1.Caption:=tbutton(sender).Caption;这条语句就可以把你按钮的名字显示出来了。 阅读全文

摘要： 异常处理有两种结构：一．Try…Except结构二．Try…Finally结构：不允许在Try部分调用Exit或Break 或Continue，因为如果调用了，将导致程序流程跳到Finally部分。两者在用法上有三点区别：（１） 在Try…Except结构中，异常被处理后异常对象就被释放，除非想让它重新触发异常。而在Try…Finally结构中，即使Finally部分对异常作了一些处理，但异常对象仍然存在。（２） 在Try…Finally结构中，不管Try部分的代码是否触发了异常，Finally部分总是执行的，如果发生了异常就提前跳到Finally部分。对于Try…Except结构来说，只有当 阅读全文

摘要： show 是以普通模式显示。非模态窗口，关闭时窗体并没有释放showmadle 是以模态的模式显示，模态窗口， 即它显示后，别的窗口无法获得焦点。procedure TFrmMain.btnModelClick(Sender: TObject);begin FrmShow := TFrmGroundInfor.Create(Application); FrmShow.ShowModal; //以模态的模式显示，别的窗口无法获得焦点，您可以工作在本窗体中，必须人工关闭窗口 FrmShow.Free;end;procedure TFrmMain.btnShowClick(Sender: TObje 阅读全文

摘要： 假设有两个应用程序，它们都要调用一个单元中的一个方法，那么这两个应用程序都要在Uses语句中引用该单元。如果同时运行这两个应用程序，这个方法就会在内存中存在两份，这显然是内存的一种浪费，使用动态链接库就可以解决这个问题。动态链接库DLL与其他应用程序通过动态链接技术来共享代码。如果一个应用程序使用了动态链接库，Win32系统保证内存中只有DLL的一份复制品，这是通过内存映射文件实现的。DLL首先被调入Win32系统的全局堆栈，然后映射到调用这个DLL的进程的地址空间，在Win32系统中，每个进程拥有自己的32位线性地址空间。如果一个DLL被多个进程调用，每个进程都会收到该DLL的一份映射。在W 阅读全文

摘要： 1.progressbar进程控制条主要的属性：Max，Min，Step与Timer一起使用while(pb1.Position<pb1.Max) do//pb1是progressbar进度条控件 begin pb1.StepIt; end;2.Gauge与progressbar用途完全相同，所不同的是Gauge具有多种表现形式，如圆形，方形等。主要的属性：Max，Min，Process与Timer一起使用procedure TForm1.tmr1Timer(Sender: TObject);begin g1.Progress := g1.Progress + 1;//g1表示Gauge 阅读全文

摘要： assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空)，如果为空则返回假（false）。用法示例(防止窗体被实例化多次)：procedure TForm1.Button1Click(Sender: TObject);begin if (Not assigned(form2)) then//判断form2是否被创建 begin form2:=Tform2.Create(Self); end; form2.show;end; 阅读全文

摘要： delphi中表示跳出的有break，continue, exit，abort, halt, runerror。1、break 强制退出循环（只能放在循环中），用于从For语句，while语句或repeat语句中强制退出。2、continue 用于从For语句，while语句或repeat语句强行结束本次称称循环，并开始下一次循环。3、exit 用于从当前代码块中退出。若该代码为主程序，则终止该程序，若是函数或过程，则立即该过程或函数。4、abort 中止程序的运行，产生不报错的异常信息。跳出祖先模块。和exit的区别是procedure p1;begin p2; p3;end;procedu 阅读全文

摘要： 名称变量类型ShortInt8位有符号整数Byte8位无符号整数SmallInt16位有符号整数Word16位无符号整数Integer32位有符号整数Longint32位有符号整数 Cardinal32位无符号整数Int6464位有符号整数Single4字节浮点数Real486字节浮点数Double8字节浮点数Extended10字节浮点数currency64位货币值TDateTime8字节日期/时间Variant16字节variantOleVariant16字节variantTVarData16字节variantChar1字节字符WideChar2字节字符ShortString固定长度字节的 阅读全文