当前位置:编程学习 > Delphi >>

delphi中如何读取ini文件中的内容,并显示在edit中,需要执行程序后edit中就显示

追问:
能给我详细说说吗?我现在是用了几个tabsheet,这个edit在其中一个上,我应该在那加呢?
在tabsheet所在的Form的OnCreate屬性增加。
tabsheet也只是Form上的一個組件而已。
還有問題,可以Hi我~
答案:在程式的OnCreate属性增加FormCreate事件:   //程式启动就执行
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
     With TINIFile.Create(filename) do begin     //filename为文件路径+名称
            edit1.Text :=ReadString(SectionName,IdentName,DefaultValue);
    end;
end;

例如,以下三行为ini文件中的内容,那麼,PrinterSetting为SectionName,ComNo和BaudRate均为IdentName,DefaultValue表示找不到相关SectionName或IdentName时采取的默认值(找不到则为DefaultValue,找得到则为找到的值,如ReadString('PrinterSetting','ComNo','2')=1而ReadString('PrinterSetting','ComNumber','2')=2).

[PrinterSetting]
ComNo=1
BaudRate=9600
其他:var MyIni: TIniFile; 
  begin 
  MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名 
  edit1.text:=MyIni.ReadString(´Desktop´, ´Wall易做图´, ´´);//取得字符 
  end; 一、打开INI文件  

Filename:=ExtractFilePath(Paramstr(0))+’program.ini’; 
myinifile:=Tinifile.Create(filename); 

二、读取关键字的值 

针对INI文件支持的字符串、整型数值、布尔值三种数据类型,TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。   
vs:=myinifile.Readstring(’小节名’,’关键字’,缺省值); string类型  

vi:=myinifile.Readinteger(’小节名’,’关键字’,缺省值);integer类型 

vb:=myinifile.Readbool(’小节名’,’关键字’,缺省值);   boolean类型 


至于在执行程序后edit中就显示的问题:
在页面的show事件中增加edit1 := myinifile.Readstring(’小节名’,’关键字’,缺省值); 
就可以了

上一个:delphi 怎么做一个服务程序 就是出现下右下角的 那种
下一个:delphi应用程序怎么打包发布??

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,