Question

delphi 的一个简单程序

现在有一个txt文件，内有tab分隔符以及回车换行符

现在需要这样做，首先读取一个指定文件.txt
然后把读取到的第一行内容根据tab分隔符写入到各个edit里面，然后还有一个edit可以输入数字，确定以后可以跳转到指定的行数
最后是一个保存按钮，点击以后可以把所修改的内容保存到打开的txt里面

请问可以看明白吗？ 不明白的请问 ，谢谢大家！

问题补充：

另外文本文件都是上M的，所以不要用逐行读取的那种加载方式

Answer 1

你应该稍微会点代码吧 我直接给你思路和大体步骤
var strlist, tmplist: TStringList; //创建两个TStringList的变量 一个用来放文本全部内容，一个用来放每行内容用于切割
i: integer;
tmpComponent: TComponent;
begin
strlist:= TStringList.Create;
strlist.LoadFromFile('txt文件路径'); //载入文本
tmplist := TStringList.Create;
tmplist.Delimiter := #9; //设置分隔符为tab
tmplist.DelimitedText := strlist.Strings[0]; //设置分割内容为第一行
for i:= 0 to tmplist.Count - 1 do
begin
tmpComponent := findComponent('edit' + inttostr(i+1)); //根据名称查找对应的edit控件
(tmpComponent as TEdit).text := tmplist.Strings[i]; //进行赋值
end;
tmplist.Free;
strlist.Free;
end;

//如果你要通过另外一个edit输入数字来读取该数字所在行的内容的话，你把strlist这个变量声明为公共变量就好了，在程序结束前不要释放。 其他的你应该自己可以搞定了吧
//指定行数的内容 = strlist.Strings[指定行数-1];

追问

高手，请问编辑edit以后如何保存呢？

另外txt内是 一 tab 二 tab 三
（回车换行）
四 tab 五 tab 六

现在有 edit1 edit2 edit3 三个edit
当第一行的时候 edit1=一，edit2=二，edit3=三
当切换第二行的时候 edit1=四，edit2=五，edit3=六

是这样的，高手帮我一下，100分我追加

追答

保存的话你直接修改就好了，不是有个edit是专门用来控制指定行数的嘛，上面说了指定行数的内容为 strlist.Strings[指定行数-1]，假设你的保存按钮为button1，代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
strlist.Strings[指定行数-1] := edit1.text + #9 + edit2.text + #9 + edit3.text;
end;

//由于strlist是全局变量，所以程序运行过程中所有过程函数都可调用，当你最终修改完毕后在把strlist保存为文本文件即可，即
strlist.SaveToFile('修改后txt路径');

Answer 2

你就是想控制txt文件中的内容嘛....
干嘛不用dat.格式存放数据，或是xml，或是json数组，那个读起来就更加快捷了。
直接用access不是更快捷。

追问

就是想用txt 因为我平时所编辑的就是txt 请问能给出大体的步骤吗？

追答

用txt存放数据不太好的，一维数组还可以的，你要多维的话，执行起来，程序效率不高的。