Question

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

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

Answer 1

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

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]”代表第十行数据

Answer 2

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

Answer 3

看你的txt里有没有规则了，有规则的话直接用tstringlist.loadfromfile加载进来就行了

Answer 4

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