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

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

不知道是不是内存溢出的问题 如何跟踪调试找到哪里出错了？
[解决办法]
内存问题可不好定位哦
到处打日志吧，尽量详细点。
应该会有点头绪。

[解决办法]
打日志的代码

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;
[解决办法]
有可能是你什么地方的getmem多了，没有FREEMEM
FREEMEM就好了

[解决办法]
专家建议，升级内存~