Ошибка

[glebast]

Помогите плииз.
Короче тут выдает такую ошибку:
Constant expression violates subrange bounds

Вот часть кода:

procedure TForm1.Timer1Timer(Sender: TObject);
var HP,HPMax,MP,MPMax,name:Integer;
WHP,WHPMax,WMP,WMPMax,NoB,wname,i:DWord;
begin
ReadProcessMemory (hProcess, Pointer($00A571E0), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$1C), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$1C ), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$24), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$18), @wname, sizeof(wname), NoB);
i:=(0-$300); /////////////////////////////////Тут выдает ошибку
ReadProcessMemory (hProcess, Pointer(wname+(i*$4), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$4), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$128), @wname, sizeof(wname), NoB);
name:= integer(wname); //Ïåðåâîäèì Integer
edit3.Text:=inttostr(name);
end;

Помогите кто может

[Аватар]

i:DWord
i:=(0-$300);

В DWord запихнуть отрицательную констату?

[glebast]

Но как мне так сделать, мне нужно чтоб было:
ReadProcessMemory (hProcess, Pointer(wname+(i*$4), @wname, sizeof(wname), NoB);
Где i=0-$300

[p51x]

Открывайте учебник и читайте про циклы...

[Stilet]

i:=Dword(0-$300);

По идее должно сработать.

[Utkin]

ReadProcessMemory (hProcess, Pointer(wname+$1C), @wname, sizeof(wname), NoB);
ReadProcessMemory (hProcess, Pointer(wname+$1C ), @wname, sizeof(wname), NoB);

А можно поинтересоваться? В чем тайный, мистический смысл приведенной выше последовательности ? Дело в том, что я уже забросил Дельфи/Паскаль и не могу постичь глубин данной мантры.
По старой памяти:

i:=(0-$300); /////////////////////////////////Тут выдает ошибку

Почему Вы решили, что ошибку дает здесь?
А не здесь:

ReadProcessMemory (hProcess, Pointer(wname+$18), @wname, sizeof(wname), NoB);