Question

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

Answer 1

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中读出的数据

Answer 2

Readln

Answer 3

读取文件比较简单，但你要求的写入不同编辑框有点歧义：是你当前自己编写的窗口上的编辑框吗？

追问

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

追答

说下思路：

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

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