procedure PrintList(const BeginPointer,EndPointer:PDWORD);
var
I:Byte;
dBegin,dEnd:DWORD;
begin
dBegin:=PDWORD(BeginPointer)^;
dEnd:=PDWORD(EndPointer)^;
for I := 0 to (dEnd-dBegin) div 4 do
begin
ShowMessage(IntToStr(dBegin+I*4));
/// 10 14 18 22 26 30
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
dBegin,dEnd:DWORD;
begin
dBegin:=10;
dEnd:=30;
PrintList(@dBegin,@dEnd)
end;
下次再遇到记得补贴一下汇编代码
时间: 2024-08-05 16:31:23