Delphi 6 (IDE Range Check Error 有打勾)
呼叫 GetClassName API 出現 Range Check Error





[code delphi]
function MyShellHook(Code : Integer; wParam : WPARAM; lParam : LPARAM)
: LongInt; stdcall;
var
Buff : array [0..255] of Char;
begin

GetClassName(wParam, Buff, SizeOf(Buff));
....
end;
[/code]


SDK HELP 說明
The GetClassName function retrieves the name of the class to which the specified window belongs.
int GetClassName(
HWND hWnd, // handle of window
LPTSTR lpClassName, // address of buffer for class name
int nMaxCount // size of buffer, in characters
);


我想問 int nMaxCount Buff : array [0..255] of Char; range 是 256 ?



模擬 Range Check Error
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var Buff : array [0..255] of Char;
i:integer;
Str:String;
begin
for i := 1 to 1000 do
begin
Str := Str '1';
Buff[i] := '1';
end;
// Buff := Pchar(Str);

showmessage(Buff);
end;
[/code]

編輯記錄