Советы по Delphi



         

Быстрое сравнение памяти


Я ищу функцию, которая была бы эквивалентом сишной функции memcmp.

Я создал следующие две функции, существенно повышающие произвотельность в приложениях, активно работающих с данными. Вам нужно всего-лишь обеспечить контроль типов и границ допустимого диапазона, все остальное они сделают с любым типом данных лучше нас :-) .

function Keys_are_Equal(var OldRec, NewRec;KeyLn : word): boolean; assembler;asmPUSH DSMOV AL,01CLDLES DI,NewRecLDS SI,OldRecMOV CX,KeyLnCLIREPE CMPSBSTIJZ @1XOR AL,AL@1:POP DSend;

function First_Key_is_Less(var NewRec, OldRec;Keyln : word): boolean; assembler;asm PUSH DSMOV AL,01CLDLES DI,NewRecLDS SI,OldRecMOV CX,KeyLnCLIREPE CMPSBSTIJZ @5JGE @6@5: XOR AL,AL@6: POP DSend;

- Dennis Passmore [000860]




Содержание  Назад  Вперед