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