Delphi汇编学习(三篇)（国外英文资料）.doc

Delphi汇编学习(三篇)（国外英文资料）The red rain falls on the waves, and the green hills become Bridges. The drunk sand field jun mo smile, ancient to fight a few people to return! The auxiliary car, the lips and the dead. A gentlemans hand is as sweet as water. If the skin doesnt survive, its a bad thing. aUsing assembly exceptions in Delphi is simple, using only the keyword asm... End to boot. Get a character in the string where there are a lot of ways, the easiest is to use the Delphi another method is to use your own Pos function loop through an array of strings, the method of dichotomy, and so on, these is the conventional method, which suggested that had better not use Pos function. Because, although the use of the function code is very simple, only one sentence CharIndex: = Pos (MyChar, STR) will be able to complete, but actually hes efficiency is the lowest, because Delphi before using it, to create an array space first, then put the length of 1 and then copy in the single character to just open the memory space. The Pos function is then called to find, and after the lookup, Delphi will use Try... Finally... The End mechanism frees up the allocated memory space, and Try finally is a resource-consuming resource. So its not recommended. The method of sequential loop lookup is also simple, and the dichotomy is a little more complicated.The following was written by myself a position function: (of a character in the string is sequential search, are interested can be modified to become a binary search, the search speed will become a log by orders of magnitude)Stop discussing how to use assembly in Delphi!Function GetCharPos (ResChar: AnsiChar; Const s: string; Index: integer = 0) : integer;asmThe / / Test instruction is the and and operation, the only difference is that the value in the Edx does not changeThe Test edx, edx; / / to determine if Edx is 0 and if 0 is nilJz @exit / / if empty, the jump exitsMov Edi, Ecx; / / saving the value of Index, where is it going to start/ /