网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
窗体的建立时机及缓冲的思想在ini文件中的应用
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式

1 窗体建立的时机问题
由于窗体属于比较占系统内存的对象,所以在应用程序中何时建立窗体就变得比较重要。
窗体的建立时机有一下几种:
(1)、在主窗体建立时自动建立窗体
(2)、在需要的时候才建立窗体,然后窗体关闭时也不销毁窗体
(3)、在需要的时候才建立窗体、然后窗体关闭时销毁窗体
第一种方式是delphi默认的实现方式,但是除了主窗体之外的其他窗体如果不是在每次使用应用程序的时候都一定用到,那么就不要让窗体自动建立。不要让窗体自动建立的方法是:点击主菜单中“project”-“option”,然后在弹出的对话框中将你不想自动建立的窗体名从Auo-create forms中拖到Available forms中去。
第二种方式适用于每次使用应用程序的时候不一定都用到,但是一旦用到那么以后会用到多次,例如数据库程序中的“数据查找”对话框、网页制作软件中的“设定文字超连接”对话框。
示例代码:
在主窗体的  private 部分加入
    FHouseTypeFrm: THouseTypeDlg;//THouseTypeDlg是自定义的一个窗体类
在您激活窗体的地方加入
  if not Assigned(FHouseTypeFrm) then
    FHouseTypeFrm := THouseTypeDlg.Create(self);
  FHouseTypeFrm.ShowModal;

第三种方式适用于一般情况下不会用到,即使用到也不会在程序中多次调用。例如“关于”对话框,“系统设置”对话框等。
示例代码:

var
  FUserManageFrm: TUserManageForm;//TUserManageForm是自定义的一个窗体类
begin
  FUserManageFrm := TUserManageForm.Create(nil);
  FUserManageFrm.SetCurrentUserName(FUsername);
  FUserManageFrm.ShowModal;
  FreeAndNil(FUserManageFrm);
end;

2 缓冲的思想在ini文件中的应用

下列代码是我们在用ini文件读写系统配置常用的方法:
procedure TConfigMgr.SetDBBackupFileName(AValue: string);
begin
    FIniFile.WriteString(''DBBackup'', ''DBFileName'', AValue);
end;

function TConfigMgr.GetDBBackupFileName: string;
begin
    result := FIniFile.ReadString(''DBBackup'', ''DBFileName'',
      FRootPath + ''DBBackup.mdf'');
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.SetDBBackupFileName(AValue: string);
begin
  if FFormerDBBackupFileName <> AValue then
  begin
    FIniFile.WriteString(''DBBackup'', ''DBFileName'', AValue);
    FFormerDBBackupFileName := AValue;
  end;
end;

function TConfigMgr.GetDBBackupFileName: string;
begin
  if FFormerDBBackupFileName <> '''' then
    result := FFormerDBBackupFileName
  else
    result := FIniFile.ReadString(''DBBackup'', ''DBFileName'',
      FRootPath + ''DBBackup.mdf'');
end;

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号