delphi怎么读取txt中的文字（数字）？谢谢！

我想用delphi7.0从txt文档中读取数字，共180个数字，怎么写代码？谢谢！
txt文档里的数据共180个，每一个数据作为一行。就是每个数据后都有回车。谢谢！

---

你要确保你的文本数据中都含有数字.这样就可以使用轿源数组进行加载.

var
数闭州态组: array[1..180] of Integer;

procedure 从文本中加载数据();
var
文本列表: TStringList;
i: Integer;
begin
文本列表 := TStringList.Create;
文本列表.LoadFromFile('C:\数据文件迹销.txt');
for i := 1 to 文本列表.Count do
try
数组[i] := StrToInt(文本列表[i - 1]);
except
数组[i] := 0; Continue;
end;
文本列表.Free;
end;

使用: 如“数组[10]”代表第十行数据

---

使用read、readln就可以，镇拦腊例如：
var f:textfile; s:string;
begin
assignfile(f,'abc.txt'衡大);
reset(f);
readln(f,s);
closefile(f);
Application.messagebox('御滑',s);
end.

---

看你的txt里有首丛没有者辩樱规则了，有规则的灶镇话直接用tstringlist.loadfromfile加载进来就行了

---

又一个没分的，晕
memo1.lines.loadfromfile('xxxx.txt');
然茄陵姿汪颤后逐颤绝行处理吧

---