各位高手请进！在线等候！答对立马结贴！

Question

用Readln一行行的读,用字符串操作取得每行里的数字部分,用循环加起来.

Answer 1

var sum,d:double;
n:integer;
f:text;sum := 0;
AssifnFile(f,'file');
while (not eof(f)) do
begin
  readln(f,n,d);
  if (n = 556) OR (n = 560) OR (n = 561) then
    sum := d + sum;
end;

Answer 2

这里有一个比较菜的办法将文件读到TMemo中，用Lines属性读你想要的若干行，去掉前面若干位，再转换成数值型就OK了，结帐吧：）

Answer 3

可以将文本转化成excel，excel转化成access就可以用sql来统计了

Answer 4

windindance(风舞轻扬)
为什么在这一句：  f:text;
有问题啊！

Answer 5

最传统的方法是读一行然后累加
但比较菜的办法我赞成bosshawk(BossHawk) 的办法。
这样比较方便。
我经常这么干！！
给我分

Answer 6

建议你还是将文件读到TMEMO中，直接取出需要的行，然后进行取值和运算！