Что бы не плодить дупликаты, поясняйте в эту тему: http://forum.vingrad.ru/index.php?showtopic=21518Я своё мнение высказал здесь: http://forum.vingrad.ru/index.php?act=ST&f...ndpost&p=149136Просто интересно, ху из ху  | Код |
// delphi reserved words
and array as
begin case class const
constructor destructor dispinterface div
do downto else end
except exports file finalization
finally for function goto
if implementation in inherited
initialization inline interface is
label library mod nil
not object of or
out packed procedure program
property raise record repeat
resourcestring set shl shr
string then threadvar to
try type unit until
uses var while with
xor
message
abstract override reintroduce dynamic overload virtual platform deprecated
cdecl stdcall register pascal safecall
private, protected, public, published, automated
assembler asm ... mov eax, ebx end
// не должны подсвечиваться
index default nodefault stored read write implements
// а сейчас должны подсвечиваться
property index default nodefault stored read write implements
// тест комментариев
{ comment 1 }
{ comment2 begin
// comment
(* comment
comment2 end }
normal code
(* comment4
// cooment4 end*) normal code
// тест директив
{$DIRECTIVE}
{$ directive}
{ $Comment}
(*$Directive }
*)
(* $ comments *)
program apodfpadf;
begin
// не должны подсвечиваться:
true false
break continue exit
name
// types, в Дельфи не подсвечиваются
byte word integer cardinal shortint smallint int64 longword
dword
char ansichar widechar
shortstring ansistring widestring
boolean bytebool wordbool longbool
bool
real real48 single double extended comp currency
pointer pchar pwidechar
variant olevariant
// проверка асм-инструкций в дельфи-коде
aaa aad aam aas adc add and
bound bsf bsr bswap bt btc btr
bts call cbw cwde clc cld cli
cmc cmp cmps/cmpsb/cmpsw/cmpsd
cmpxchg cwd cdq daa
das dec div enter hlt idiv imul
in inc ins/insb/insw/insd int into iret/iretd
jcxz jecxz jmp lahf lds les lfs
lgs lss lea leave lgdt lidt lods/lodsb/lodsw/lodsd
loop loope loopz loopne loopnz
mov movs/movsb/movsw/movsd movsx movzx
mul neg nop not or
out outs pop popa popad popf popfd
push pusha pushad pushf pushfd rcl rcr
rep/repe/repz/repne/repnz ret/retf rol ror sahf sal sar
sbb scas/scasb/scasw/scasd setcc sgdt sidt shl shld
shr shrd stc std sti stos/stosb/stosw/stosd sub
test xadd xchg xlat/xlatb xor
// проверка подсветки асм-регистров
asm
al ah bl bh cl ch dl dh
ax bx cx dx bp sp si di
eax ebx ecx edx ebp esp esi edi
cs ds es ss fs gs
end;
// проверка подсветки асм-инструкций
asm
aaa aad aam aas adc add and
bound bsf bsr bswap bt btc btr
bts call cbw cwde clc cld cli
cmc cmp cmps/cmpsb/cmpsw/cmpsd
cmpxchg cwd cdq daa
das dec div enter hlt idiv imul
in inc ins/insb/insw/insd int into iret/iretd
jcxz jecxz jmp lahf lds les lfs
lgs lss lea leave lgdt lidt lods/lodsb/lodsw/lodsd
loop loope loopz loopne loopnz
mov movs/movsb/movsw/movsd movsx movzx
mul neg nop not or
out outs pop popa popad popf popfd
push pusha pushad pushf pushfd rcl rcr
rep/repe/repz/repne/repnz ret/retf rol ror sahf sal sar
sbb scas/scasb/scasw/scasd setcc sgdt sidt shl shld
shr shrd stc std sti stos/stosb/stosw/stosd sub
test xadd xchg xlat/xlatb xor
end;
// как дельфи подсвечивается в асм-частях
asm
and array as
begin case class const
constructor destructor dispinterface div
do downto else
except exports file finalization
finally for function goto
if implementation in inherited
initialization inline interface is
label library mod nil
not object of or
out packed procedure program
property raise record repeat
resourcestring set shl shr
string then threadvar to
try type unit until
uses var while with
xor
message
abstract overridre reintroduce dynamic overload virtual platform deprecated
cdecl stdcall register pascal safecall
private, protected, public, published, automated
assembler asm
index default nodefault stored read write implements
end;
// не должны светится
asm
model dup equ org use16 use32 format include invoke import section entry readable writeable code library directory dialogitem ... и др...
end;
// не должны светится в Дельфи:
db dw dd dup model equ org use16 use32 format include invoke import section entry readable writeable code directory dialogitem ... и др...
asm
// тест комментариев
{ comment 1 }
{ comment2 begin
// comment
(* comment
comment2 _end }
normal code
(* comment4
// cooment4 end*) normal code
// тест директив
{$DIRECTIVE}
{$ directive}
{ $Comment}
(*$Directive }
*)
(* $ comments *)
end;
end;
|
Присоединённый файл ( Кол-во скачиваний: 0 )
blond.gif |
Супервирус Orthodox Xmas, что это? 
Загрузка ...
