能力值:
( LV13,RANK:1370 )
|
-
-
[求助]DELPHI内联汇编问题(已解决)
最初由 firstrose 发布 不要用ebx
谢谢firstrose,正解,原来是这样.下面的编译可以通过:
Var
name:STRING;
a:integer;
begin
name:=edit1.text;
a:=0;
asm
MOV ESI,DWORD PTR SS:[name]
PUSH ESI
XOR EAX,EAX
XOR EDI,EDI
@1:
MOV AL,BYTE PTR DS:[ESI]
TEST AL,AL
JE @2
ADD EDI,EAX
INC ESI
JMP @1
@2:
MOV a,EDI
POP ESI
end;
edit2.text:=inttostr(a);
end;
|
能力值:
( LV13,RANK:1370 )
|
-
-
|