取出文件流字符串进行求和和平均值

最新推荐文章于 2022-09-17 01:53:46 发布

one_money

最新推荐文章于 2022-09-17 01:53:46 发布

阅读量666

点赞数

分类专栏： Delphi 文章标签： integer

本文链接：https://blog.csdn.net/one_money/article/details/5693146

版权

Delphi 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

var
i,j,sum:integer;
txtstr,newstr:string;
begin
if txtstring=nil then
     txtstring:=TStringList.Create;
txtstring.LoadFromFile(ApplicationPath+'/abc.txt');
for i:=0 to txtstring.Count-1 do begin
      txtstr:=txtstring.Strings[i];
      newstr:=txtstr;
      sum:=0;
      j:=0;
      while((pos(',',newstr)<>-1) or (length(newstr)<>0)) do begin
          inc(j);
          if pos(',',newstr)=0 then begin
            sum:=sum+strtoint(newstr);
            newstr:='';
            break;
          end else begin
            sum:=sum+strtoint(copy(newstr,0,pos(',',newstr)-1));
            newstr:=copy(newstr,pos(',',newstr)+1,length(newstr)-pos(',',newstr));
          end;
      end;
      showmessage('文本第'+inttostr(i+1)+'行的总和是：'+inttostr(sum)+'平均值是:'+floattostr(sum/j));
end;