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;
下次再遇到记得补贴一下汇编代码
ps:好无知呀,原来这是STL容器的vector类型
http://blog.csdn.net/heyutao007/article/details/6905589