delphi4arab منتديات دلفي للعرب

function StrLen(const Str: PChar): Cardinal; assembler;
    asm
     MOV EDX,EDI
     MOV EDI,EAX
     MOV ECX,0FFFFFFFFH
     XOR AL,AL
     REPNE SCASB
     MOV EAX,0FFFFFFFEH
     SUB EAX,ECX
     MOV EDI,EDX
     end;

مهمتها هي إعطاء كم عدد الحروف في الكلمة