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

Posted 2023-04-16

一、打开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(’小节名’,’关键字’,缺省值);
就可以了 参考技术A 在程式的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我~

本回答被提问者采纳 参考技术B var MyIni: TIniFile;
begin
MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名
edit1.text:=MyIni.ReadString(´Desktop´, ´Wallpaper´, ´´);//取得字符
end;

将文件内容读取到 grub.cfg 文件中的变量

【中文标题】将文件内容读取到 grub.cfg 文件中的变量

【英文标题】：Read file contents to variable in grub.cfg file

【发布时间】：2016-09-26 19:03:51

【问题描述】：

第一季度。想知道如何在 grub.cfg 的引导时将文件的内容读取到变量中？

第二季度。是否可以将其扩展为读取 .ini 类型的文件，您可以在其中读取各种名称条目的值？

[section] nothisone=whatever thisone=this is what I want to get

TIA！！

【参考方案1】：

为了完全满足您的要求，您可能需要编写自己的 GRUB 模块。

但是，您应该能够使用configfile 命令或巧妙地应用environment block 功能来实现您的目标。

【参考方案2】：

使用“source”命令包含另一个配置文件，但不像“configfile”会改变上下文。 Source 就像一个在线宏，而 configfile 就像一个函数 - configfile 中的环境更改不会被保留，但 source 会扩展源文件中的任何内容并放入主块中，可以通过这种方式更改环境变量。

https://www.gnu.org/software/grub/manual/grub/grub.html#source https://www.gnu.org/software/grub/manual/grub/grub.html#configfile