Question

delphi7 txt 到edit

txt中有很多行，很多列，依次把 txt第一行的第一列读入edit1，第二列读入edit2.........，然后txt的第二行依然，求指教，万分感谢！
列与列之间有空格，但是数字的位数不一定！另外：用dbMemo 到dbEdit也行。

Answer 1

用一个过程实现吧。
代码如下：
procedure TEaseFum(ATxt: String);
var
tsTemp: TStringList;
begin
tsTemp := TStringList.Create;
tsTemp.Delimiter := ' ';
tsTemp.DelimitedText:=ATxt;
try
Edit1.Text:=tsTemp[0];
Edit2.Text:=tsTemp[1];
//......
finally
tsTemp.Free;
end;
end;

Answer 2

当数据库吧

Answer 3

使用Infiles类循环读出，然后赋值可以了。调用其中的ReadString方法，例如edit[i]:=ReadString(' ',vValues.Names[i],vValues.Values[vValues.Names[i]]);

Answer 4

LoadFromFile ,用MEMO，如果想用EDIT一行行存的话，用Stringlist去Load文件也可以