Советы по 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]
