Question

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

Answer 1

一、打开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(’小节名’,’关键字’,缺省值);
就可以了

Answer 2

在程式的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

追问

能给我详细说说吗？我现在是用了几个tabsheet，这个edit在其中一个上，我应该在那加呢？

追答

在tabsheet所在的Form的OnCreate屬性增加。
tabsheet也只是Form上的一個組件而已。
還有問題，可以Hi我~

Answer 3

var MyIni: TIniFile;
begin
MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名
edit1.text:=MyIni.ReadString(´Desktop´, ´Wallpaper´, ´´);//取得字符
end;