D dxqjdj Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-14 #1 我定义了一个数组： sz: array [0..101] of byte; 请问如何在嵌入的汇编中给sz赋值，类似于 mov sz,al ( i --- 为变量)
B barton Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-14 #2 procedure FillArray(const sz: array of Byte; i: Integer; Value: Byte); asm add eax,edx mov [eax], cl end;
procedure FillArray(const sz: array of Byte; i: Integer; Value: Byte); asm add eax,edx mov [eax], cl end;
D delp Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-14 #4 ok 我也喜欢汇编 procedure TForm1.Button1Click(Sender: TObject); var I : Integer; sz: array [0..101] of Char; { 可以用 byte } szp : PChar; begin szp := @sz; for I := 0 to 100 do asm mov edx,szp; mov ecx,i; mov al,'A' mov [edx+ecx],al end; ShowMessage(String(sz)); end;
ok 我也喜欢汇编 procedure TForm1.Button1Click(Sender: TObject); var I : Integer; sz: array [0..101] of Char; { 可以用 byte } szp : PChar; begin szp := @sz; for I := 0 to 100 do asm mov edx,szp; mov ecx,i; mov al,'A' mov [edx+ecx],al end; ShowMessage(String(sz)); end;
