|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2017, 10:48 | #1 |
Регистрация: 05.09.2016
Сообщений: 8
|
Assember to Delphi
Ребят, кто-нибудь может перевести этот asm код в Delphi код?
function TTreeNodeList.IndexOf(Item: TTreeNTNode): Integer; assembler; // finds Item's index in the list // EAX contains the Self reference (address of this instance) // EDX contains Item asm PUSH EBX PUSH EDI MOV ECX, EAX.FCount // number of entries JECXZ @NotFound // no search, if no entries MOV EBX, ECX // keep count for index calc. MOV EDI, EAX.FList // start address MOV EAX, EDX // search value REPNE SCASD // search the value JNZ @NotFound // jump if not found MOV EAX, EBX SUB EAX, ECX // calculate index DEC EAX // it's zero-based JMP @Finish @NotFound: MOV EAX, -1 @Finish: POP EDI POP EBX end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 | 666dart666 | Помощь студентам | 11 | 04.11.2010 17:57 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |