cg213的专栏

  方法1：可写为函数，再调用  Application.CreateForm(TForm1, Form1);  Form1.ShowModal;  Form1.Free;   方法2：  Form1:= TForm1.Create(Application);  try     Form1.ShowModal;  finally     FreeAndNil(Form1);  end;

//写入IniFilefunction WriteIniFiles(Section: string; KeyName: string; KeyValue: string): Boolean;var  MyIniFile: TiniFile;begin  if (Section = ) or (KeyName = ) or (KeyValue = ) then  begin    R

关于delphi Assigned 1.根据 Delphi 指令参考手册中说明：Assigned 函式在参数不为nil时传回True,表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为nil ，无乱的指向某处，这两个种情况，Assigned（指针变量）都不为nil , 函数放回True；而参数为nil时则传回False。