delphi中怎么读取ini文件第2行

Posted 2023-05-12

参考技术A 用最简单的办法，
你用TStringList读入这个文件，
然后去下标1的数据就是第2行。 参考技术B ini有专用的读取方式
uses INIFiles;
var
inifile:Tinifile;
astr:string;
begin
inifile := TInifile.Create('ini文件名');
astr:=inifile.ReadInteger('小节名','属性名','默认值');
end; 参考技术C 把它当成TXT文件读取 参考技术D 同意 检举 | 2011-10-20 11:11 极天异云 第5个回答  2011-10-20 readln 2次

delphi中怎么逐行读取文本文件的数据并将每行分别写入指定的不同编辑框

参考技术A FileName:string;
f:Textfile;
s:string;

FileName:='C:\this.log';
AssignFile(f,FileName);//关联文件
Reset(f);
Readln(f,s); //读一行
memo1.Lines.Add(s); //写到MEMO1
ReadLn(f,s); //再读一行
memo2.Lines.Add(s);//写到MEMO2
CloseFile(f);//关闭追问

如果数据比较多的话，操作好像很麻烦

追答

给编辑框定一个命名规则，然后根据这个规则写入，举例，编辑框名为t1,t2,t3.......
容器为Panel1
t+循环变量 形成控件名称
edit := Panel1.FindChildControl(控件名称) as TEdit ;
if(edit null) then edit.Text:= txt中读出的数据

本回答被提问者采纳 参考技术B Readln 参考技术C 读取文件比较简单，但你要求的写入不同编辑框有点歧义：是你当前自己编写的窗口上的编辑框吗？追问

恩，比如说我非常第一行要写入EDIT1，第二行要写入EDIT2。我现在一个一个写可以实现，但如果数据多的，那量就非常大了

追答

说下思路：

1. 用TStringList载入文本文件。
2. 循环读取每行内容，并写入指定的编辑框。

小提示：如果你每行文本内容对应的编辑框都是指定的不同编辑框，那么建议在文本的每行除了内容之外，还需要保存编辑框的名称。