关于DELPHI内嵌汇编指令的问题！！！急～～～在线等待～～～

[bw110323]

我要写一个抄表机的程序，其中要用到PASCAL语言的HT扩展函数库，其中有不少汇编代码
其中有一段是这样的
function CharStr(c: char; n: integer): string; assembler;
asm
les di, @result //这行出错 提示：Operand size mismatch
mov ax, n //这行出错 提示：Operand size mismatch
call AdjustLen
cld
stosb
mov cl, al
xor ch, ch
mov al, c
rep stosb
end;

可是在编译时候老是出错，是不是我需要在程序开始USES什么文件的，还有什么指令能代替les di, @result的效果吗？或则是位数的问题？？
请大家帮忙看看，谢谢

[bw110323]

顶啊~

[zoologist]

les di, @result <--这样用的意思是result是一个标号
mov ax, n <--如果前面定义的n:byte那么会出错,如果是n;integer就可以

[zoologist]

另外,delphi的object pascal和bp的pascal不太一样,

我不知道你用的是哪一个?

[YFLK]

@result 的存贮范围没有明确定义，
建议：
Type
Str??? = 定义字串长度
End ;
function CharStr(c: char; n: integer): str???; assembler