SSJY.ORG.CN

Close:

1.只关闭本窗体

2.当Close是一个主窗体时,程序会退出。

3.Close会发生FormClose事件,FormCloseQuery事件

4.主窗体close以后程序就Application.Terminate了

5.子窗体close以后。没释放,还可以Show出来。

6.也是说主窗口的Close方法其实也是调用Application的Terminate来终止程序的。

Halt:

Delphi7中使用AssignFile时遇到长文件名报错的BUG：

procedure TForm1.btn1Click(Sender: TObject);
var
  file1: file;
  filename: string;
  Buf: array[1..5] of Char;
  i: Integer;
begin
  edt1.Text := '';
  filename := 'D:\一二三四五六七八九十1\一二三四五六七八九十2\一二三四五六七八九十3\一二三四五六七八九十4\一二三四五六七八九十5\'
    + '一二三四五六七八九十6\一二三四五六七八九十7\一二三四五六七八九十8\一二三四五六七八九十9\一二三四五六七八九十0\'
    + '一二三四五六七八九十1\一二三四五六七八九十2\一二三四五六七八九十3\一二三四五六七八九十4\一二三四五六七八九十5\'
    + '一二三四五六七八九十6\一二三四五六七八九十7\一二三四五六七八九十8\一二三四五六七八九十9\一二三四五六七八九十0\'
    + '123456789012.txt';
  //ShowMessage(IntToStr(Length(filename)));//459
  filename := ExtractShortPathName(filename);
  //ShowMessage(IntToStr(Length(filename)));//195
  AssignFile(file1, filename);
  FileMode := 0;
  Reset(file1, 1);
  BlockRead(file1, Buf, SizeOf(Buf), i);
  CloseFile(file1);
  edt1.Text := Buf;
end;

将长文件名转为短文件名后，再AssignFile就可以了：

附带通用控件安装方法：

----------

基本安装

1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;

2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；

3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；

Delphi7中分割字符串，一般使用TStringList的Delimiter方法，如下：

var  
   sl: TStringList;  
   str: string;  
   i: Integer;  
begin  
   str := 'aa,b b,cc,dd';  
   sl := TStringList.Create;  
   sl.Delimiter := ',';  
   sl.DelimitedText := str;  
   for i := 0 to sl.Count - 1 do  
      ShowMessage(sl[i]);  
   FreeAndNil(sl);  
end;

但是运行的结果确是不对的（空格也被当成了分隔符）：

‍‍

 函数原型：int GetSystemMetrics(   int nIndex   // system metric or configuration setting );  函数返回与系统有关的信息      

 property Showing: Boolean read FShowing;

While the Visible property can be read or changed, Showing is a read-only property.

TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。

　　常规的用法大家都知道，现在来讨论它的一些高级的用法。
　　1、CommaText
　　2、Delimiter &DelimitedText
　　3、Names &Values &ValueFromIndex
　　先看第一个：CommaText。怎么用呢？

 form.Free   -   释放Form占用的所有资源。Free后，Form指针不能再使用，除非对Form重新赋值。