delphi 程序运行一段时间出错 错误信息如下图所示 如何跟踪调试内存问题

Question

delphi 程序运行一段时间出错 错误信息如下图所示不知道是不是内存溢出的问题 如何跟踪调试找到哪里出错了？

Answer 1

http://hi.baidu.com/%D2%AC%D7%D3%CC%EC%D1%C4/album/item/be13b12041cd00508644f9e1.html#

Answer 2

打日志的代码procedure SaveDIYLog(AMsg: string;DIY:string; AddTime: Boolean = False);
var
  APath: string;
  FTextFile: TextFile;
begin
  if AddTime then
    AMsg := DateTimeToStr(Now) + #9 + AMsg  ;  APath := ExtractFilePath(ParamStr(0)) + 'LogFile\';
  if not DirectoryExists(APath) then
    ForceDirectories(APath);
  APath := APath + DIY;
  if FileExists(APath) then
  begin
    AssignFile(FTextFile, APath);
    Append(FTextFile);
    try
      Writeln(FTextFile, Amsg);
    finally
      CloseFile(FTextFile);
    end;
  end
  else
  begin
    AssignFile(FTextFile, APath);
    Rewrite(FTextFile);
    try
      Writeln(FTextFile, Amsg);
    finally
      CloseFile(FTextFile);
    end;
  end;
end;

Answer 3

有可能是你什么地方的getmem多了，没有FREEMEM
FREEMEM就好了