Question

怎样用delphi把TXT文件中每一行数据中的第5个数据读取下来 并取和

Answer 1

可通过TMEMO控件载入TXT数据，再做循环处理实现。步骤如下：

1、添加TMEMO（笔者命名为mmo1）及TBUTTON控件；
2、进入TBUTTON单击事件，输入将TXT导入mmo1控件的代码：
mmo1.Lines.LoadFromFile（'D:\360\EURUSD_M_M1.txt'）；
3、循环处理，重要代码参考如下：
mmo1.Lines.Count --总记录数
mmo1.Lines.Strings[StrToInt(Trim(序号))]--逐行读取
copy( mmo1.Lines.Strings[StrToInt(Trim(序号))] ,5 , 1)-- 用COPY函数读取第5个数据

Answer 2

assignfile(file,'***.txt');
reset(file);
readln(str);
while not(eof) do
begin
x:=x+strtoint(copy(str,5,1));
readln(str);
end;
closefile(file);

Answer 3

for i := 0 to mmo1.Lines.Count-1 do
begin
ShowMessage(Copy(mmo1.Lines[i],5,1));
end;