Как записать по вычесленному адресу переменную

← →
Dust © (2005-07-02 17:00) [0]

var buf : DWORD;
size_ : Integer;
seg : WORD;
begin
buf := 0;
buf := LocalAlloc (LPTR, 512);
size_ :=0;
............
//здесь нужно сделать то, что в сях записывается как
//*((int *)(buf + seg))=234234
.......
end;

← →
ВАСыЛЬ (2005-07-02 17:07) [1]

Хрень какая-то...

← →
uny © (2005-07-02 17:32) [2]

http://delphimaster.net/view/15-1120006103/&web=1

приходите в Потрепаться :)

← →
ferr © (2005-07-02 17:52) [3]

Cardinal(Pointer(Cardinal(Pointer(Buf))+Seg)^):=234234;

asm
mov edi, buf
mov [edi], 234234
end;

PLongword(Longword(Buf) + Seg)^ := 234234

Как записать по вычесленному адресу переменную Найти похожие ветки