每行都是什么啊，数据 or 字符串？给你个读取浮点数的例子。
type
TFloatData = array of Double;
//FileName：文件名；Arr：存储数据的动态数组
procedure GetTxtData(const FileName: string
var Arr: TFloatData);
var
f: TextFile;
i: Integer;
begin
AssignFile(f, FileName);
FileMode := 0
//只读模式
Reset(f);
Readln(f);
i := 0;
while not Eof(f) do
begin
Inc(i);
SetLength(Arr, i);
Readln(f, Arr[i - 1]);
end;
CloseFile(f);
end;
