由於窗體屬於比較占系統內存的對象
(
(
(
第一種方式是delphi默認的實現方式
第二種方式適用於每次使用應用程序的時候不一定都用到
示例代碼
在主窗體的 private 部分加入
FHouseTypeFrm: THouseTypeDlg;//THouseTypeDlg是自定義的一個窗體類
在您激活窗體的地方加入
if not Assigned(FHouseTypeFrm) then
FHouseTypeFrm := THouseTypeDlg
FHouseTypeFrm
第三種方式適用於一般情況下不會用到
示例代碼
var
FUserManageFrm: TUserManageForm;//TUserManageForm是自定義的一個窗體類
begin
FUserManageFrm := TUserManageForm
FUserManageFrm
FUserManageFrm
FreeAndNil(FUserManageFrm);
end;
2
下列代碼是我們在用ini文件讀寫系統配置常用的方法
procedure TConfigMgr
begin
FIniFile
end;
function TConfigMgr
begin
result := FIniFile
FRootPath +
end;
因為讀寫磁盤文件是比較占用系統資源的操作
type
TConfigMgr = class
private
FIniFileName: string;
FIniFile: TIniFile;
FRootPath: string;
FFormerDBBackupFileName: string;
procedure SetDBBackupFileName(AValue: string);
function GetDBBackupFileName: string;
public
……
published
property DBBackupFileName: string read GetDBBackupFileName write SetDBBackupFileName;
end;
implementation
……
procedure TConfigMgr
begin
if FFormerDBBackupFileName <> AValue then
begin
FIniFile
FFormerDBBackupFileName := AValue;
end;
end;
function TConfigMgr
begin
if FFormerDBBackupFileName <>
result := FFormerDBBackupFileName
else
result := FIniFile
FRootPath +
end;
From:http://tw.wingwit.com/Article/program/Delphi/201311/25016.html