程序运行时出现地址错误,请大家帮忙分析原因.

[qi7]

出错的行在system单元的LoadResString函数中;

function LoadResString(ResStringRec: PResStringRec): string;
var
Buffer: array [0..1023] of char;
begin
if ResStringRec = nil then Exit;
if ResStringRec.Identifier < 64*1024 then
SetString(Result, Buffer, // error line
LoadString(FindResourceHInstance(ResStringRec.Module^),
ResStringRec.Identifier, Buffer, SizeOf(Buffer)))
else
Result := PChar(ResStringRec.Identifier);
end;

请问是什么原因出现这种错误?

[lovend]

错误提示是什么啊。帮你顶

[darkliu]

一般是调用了已经被释放的对象。检查一下

[qi7]

在什么情况下会用到LoadResString函数,我的程序中没有调用,怎么判断调用来源

[GoldShield]

The Win32 program loader sets up the first 64k of process address space
with no read or write access, to help detect use of invalid pointers
(whose integer value is 0..64k)

[qi7]

一般会在哪调用这个函数???

[xiaoyaozgc]

顶

[qi7]

在下愚钝,大侠能否说明白点?
我现在想找到调用来源.

[qi7]

我需要帮助!!!

[xixuemao]

function LoadResString(ResStringRec: PResStringRec): string;
var
Handle: TResourceHandle;
Tab: ^ResStringTable;
ResMod: HMODULE;
begin
if ResStringRec = nil then Exit;
ResMod := FindResourceHInstance(ResStringRec^.Module^);
Handle := FindResource(ResMod,
PChar(ResStringRec^.Identifier div ResStringTableLen),
PChar(6)); // RT_STRING
Tab := Pointer(LoadResource(ResMod, Handle));
if Tab = nil then
Result := ''
else
begin
Result := PWideChar(PChar(Tab) + Tab[ResStringRec^.Identifier mod ResStringTableLen]);
end;
end;

这个不就是系统定义的吗？你按照这个写不行了

[Teng_s2000]

哈，重装delphi吧！

[qi7]

谢谢大家.
换了台机器就没事, 不过没找到原因;
结贴.