Привет, использую ImageFileLibBCB для работы с графикой, но при переходе на новую IDE возникли проблемы с одной функцией из модуля MemUtils:
Код:
function FastLocate2Bytes(const where; start, bsize: integer; what: word):integer; assembler; pascal; far;
asm
push edi
mov ecx, [bsize]
sub ecx, [start]
jz @notfound // No data to search
mov edi, [where]
add edi, [start]
mov ax, [what]
@search:
repne scasb//В этом месте возникает исключение Access Violation
je @found
@notfound:
mov eax, -1
jmp @end
@found:
cmp [edi], ah
jne @search
mov eax, edi
dec eax
sub eax, [where]
@end:
pop edi
end;
Люди добрые, подскажите решение проблемы или аналог этой функции на Delphi.
P.S. в ассемблерных инструкциях не силен.