Question

delphi 循环

[[[[[010e4338]+4]+4]+4]+8]+f8

怎么写代码 让4 循环+ N次？
[[[[[010e4338]+4].........+4]+4]+8]+f8
Var
const baseadr = $010e4338;
end;
ReadProcessMemory(ProcessID, Pointer(baseadr), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $8), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $f8), @ECXI, 4, Num);
让 ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num); 加 N次啊 。 怎么简化代码？

Answer 1

那就直接用循环语句啊

var
i: Integer;
begin
for i := 1 to n do
begin
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
end;
end;

这样就好了啊

Answer 2

const baseadr = $010e4338;
Var
I:integer;
begin
ReadProcessMemory(ProcessID, Pointer(baseadr), @ECXI, 4, Num);
//让 ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);加 N次
for I:=1 to N do
ReadProcessMemory(ProcessID, Pointer(ECXI + $8), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $f8), @ECXI, 4, Num);
end;

Answer 3

不知道这么对不
Var
const baseadr = $010e4338;
end;
ReadProcessMemory(ProcessID, Pointer(baseadr), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $4), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $8), @ECXI, 4, Num);
ReadProcessMemory(ProcessID, Pointer(ECXI + $f8), @ECXI, 4, Num);