Delphi初心者のための寺子屋

Delphi初心者のための寺子屋at TECH

Delphi初心者のための寺子屋 - 暇つぶし2ch11:デフォルトの名無しさん
05/11/24 10:36:03
現在の回答

sum:=0;
try
  AssignFile(fp, filename);
  try
    Reset(fp);
  except
    Memo1.Lines.Add(filename);
    raise;
  end;
  try
    while (not Eof(fp)) do
    begin
      try
        Readln(fp, str);
      except
        raise Exception.Create('よみこめねー');
      end;
      sum:=sum+StrToFloatDef(str, 0);
    end;
    Memo1.Lines.Add(FloatToStr(sum));
  finally
    CloseFile(fp);
  end;
except
  on E: Exception do Memo1.Lines.Add(E.Message);
end;

次ページ

続きを表示

1を表示