汇编级超快字符串替换函数

Author：傻猫
发布时间：October 23, 2007
6196views
No comments
37031 words
Categories：搞软件

&nbsp;用这个函数进行字符串替换操作，比Delphi自带的ReplaceString要快N倍，效率一流，非常快，不愧为汇编级函数操作，哈哈.下载函数单元文件：<a href="https://www.samool.com/go/aHR0cHM6Ly9zYW1vb2wuY29tL2F0dGFjaG1lbnRzL2RhdGVfMjAwNzEwL2Q2MzI5NDQ4NDg0ZGJhYzgwOWJlMjE3MWFmYjFiNGU1LnJhcg==" target="_blank" >freplace.rar</a><div class="codeText"><div class="codeHead">delphi代码</div><ol class="dp-delphi"> <li class="alt">unit&nbsp;FReplace; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">interface&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">Type &nbsp;&nbsp;</li> <li class="">TFastPosProc&nbsp;=&nbsp;function( &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aSourceString,&nbsp;aFindString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">const&nbsp;aSourceLen,&nbsp;aFindLen,&nbsp;StartPos&nbsp;:&nbsp;integer&nbsp;&nbsp;</li> <li class="alt">)&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">function&nbsp;FastReplace( &nbsp;&nbsp;</li> <li class="">var&nbsp;aSourceString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aFindString,&nbsp;aReplaceString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">CaseSensitive&nbsp;:&nbsp;Boolean&nbsp;=&nbsp;False)&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">function&nbsp;FastPos( &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aSourceString,&nbsp;aFindString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">const&nbsp;aSourceLen,&nbsp;aFindLen,&nbsp;StartPos&nbsp;:&nbsp;integer&nbsp;&nbsp;</li> <li class="alt">)&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">function&nbsp;FastPosNoCase( &nbsp;&nbsp;</li> <li class="">const&nbsp;aSourceString,&nbsp;aFindString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aSourceLen,&nbsp;aFindLen,&nbsp;StartPos&nbsp;:&nbsp;integer&nbsp;&nbsp;</li> <li class="">)&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">implementation&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">//&nbsp;This&nbsp;TYPE&nbsp;declaration&nbsp;will&nbsp;become&nbsp;apparent&nbsp;later. &nbsp;&nbsp;</li> <li class="alt">//The&nbsp;first&nbsp;thing&nbsp;to&nbsp;note&nbsp;here&nbsp;is&nbsp;that&nbsp;I&rsquo;m&nbsp;passing&nbsp;the&nbsp;SourceLength&nbsp;and&nbsp;FindL &nbsp;&nbsp;</li> <li class="">//ength.&nbsp;As&nbsp;neither&nbsp;Source&nbsp;nor&nbsp;Find&nbsp;will&nbsp;alter&nbsp;at&nbsp;any&nbsp;point&nbsp;during&nbsp;FastReplace &nbsp;&nbsp;</li> <li class="alt">//,&nbsp;there&rsquo;s&nbsp;no&nbsp;need&nbsp;to&nbsp;call&nbsp;the&nbsp;LENGTH&nbsp;subroutine&nbsp;each&nbsp;time! &nbsp;&nbsp;</li> <li class="">function&nbsp;FastPos( &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aSourceString,&nbsp;aFindString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">const&nbsp;aSourceLen,&nbsp;aFindLen,&nbsp;StartPos&nbsp;:&nbsp;integer&nbsp;&nbsp;</li> <li class="alt">)&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">var&nbsp;&nbsp;</li> <li class="alt">SourceLen&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">begin&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Next,&nbsp;we&nbsp;determine&nbsp;how&nbsp;many&nbsp;bytes&nbsp;we&nbsp;need&nbsp;to &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;scan&nbsp;to&nbsp;find&nbsp;the&nbsp;&quot;start&quot;&nbsp;of&nbsp;aFindString. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;aSourceLen; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;-&nbsp;aFindLen; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;if&nbsp;(StartPos-1)&nbsp;&gt;&nbsp;SourceLen&nbsp;then&nbsp;begin&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;0; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Exit; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;end; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;-&nbsp;StartPos; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;+2; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;The&nbsp;ASM&nbsp;starts&nbsp;here. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;asm&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Delphi&nbsp;uses&nbsp;ESI,&nbsp;EDI,&nbsp;and&nbsp;EBX&nbsp;a&nbsp;lot, &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;so&nbsp;we&nbsp;must&nbsp;preserve&nbsp;them. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;address&nbsp;of&nbsp;sourceString[1] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;and&nbsp;Add&nbsp;(StartPos-1). &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;We&nbsp;do&nbsp;this&nbsp;for&nbsp;the&nbsp;purpose&nbsp;of&nbsp;finding &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;the&nbsp;NEXT&nbsp;occurrence,&nbsp;rather&nbsp;than &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;always&nbsp;the&nbsp;first! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;EDI,&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;add&nbsp;EDI,&nbsp;StartPos &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;address&nbsp;of&nbsp;aFindString. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;ESI,&nbsp;aFindString &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Note&nbsp;how&nbsp;many&nbsp;bytes&nbsp;we&nbsp;need&nbsp;to &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;look&nbsp;through&nbsp;in&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;to&nbsp;find&nbsp;aFindString. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;ECX,&nbsp;SourceLen &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;first&nbsp;char&nbsp;of&nbsp;aFindString; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;note&nbsp;how&nbsp;it&nbsp;is&nbsp;done&nbsp;outside&nbsp;of&nbsp;the &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;main&nbsp;loop,&nbsp;as&nbsp;it&nbsp;never&nbsp;changes! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Al,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Now&nbsp;the&nbsp;FindFirstCharacter&nbsp;loop! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@ScaSB: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;value&nbsp;of&nbsp;the&nbsp;current &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;character&nbsp;in&nbsp;aSourceString. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;This&nbsp;is&nbsp;equal&nbsp;to&nbsp;ah&nbsp;:=&nbsp;EDI^,&nbsp;that &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;is&nbsp;what&nbsp;the&nbsp;[]&nbsp;are&nbsp;around&nbsp;[EDI]. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Ah,&nbsp;[EDI] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Compare&nbsp;this&nbsp;character&nbsp;with&nbsp;aDestString[1]. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;Ah,Al &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;they're&nbsp;not&nbsp;equal&nbsp;we&nbsp;don't &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;compare&nbsp;the&nbsp;strings. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jne&nbsp;&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;they're&nbsp;equal,&nbsp;obviously&nbsp;we&nbsp;do! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@CompareStrings: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Put&nbsp;the&nbsp;length&nbsp;of&nbsp;aFindLen&nbsp;in&nbsp;EBX. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;EBX,&nbsp;aFindLen &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;We&nbsp;DEC&nbsp;EBX&nbsp;to&nbsp;point&nbsp;to&nbsp;the&nbsp;end&nbsp;of &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;the&nbsp;string;&nbsp;that&nbsp;is,&nbsp;we&nbsp;don't&nbsp;want&nbsp;to &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;add&nbsp;1&nbsp;if&nbsp;aFindString&nbsp;is&nbsp;1&nbsp;in&nbsp;length! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;dec&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;add&nbsp;by&nbsp;ShengQuanhu &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;EBX&nbsp;is&nbsp;zero,&nbsp;then&nbsp;we've&nbsp;successfully &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;compared&nbsp;each&nbsp;character;&nbsp;i.e.&nbsp;it's&nbsp;A&nbsp;MATCH! &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;It&nbsp;will&nbsp;be&nbsp;happened&nbsp;when&nbsp;aFindLen=1 &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Jz&nbsp;@EndOfMatch &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;end &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//Here&rsquo;s&nbsp;another&nbsp;optimization&nbsp;tip.&nbsp;People&nbsp;at&nbsp;this&nbsp;point&nbsp;usually&nbsp;PUSH&nbsp;ESI&nbsp;and &nbsp;&nbsp;</li> <li class="alt">//so&nbsp;on&nbsp;and&nbsp;then&nbsp;POP&nbsp;ESI&nbsp;and&nbsp;so&nbsp;forth&nbsp;at&nbsp;the&nbsp;end&ndash;instead,&nbsp;I&nbsp;opted&nbsp;not&nbsp;to&nbsp;chan &nbsp;&nbsp;</li> <li class="">//ge&nbsp;ESI&nbsp;and&nbsp;so&nbsp;on&nbsp;at&nbsp;all.&nbsp;This&nbsp;saves&nbsp;lots&nbsp;of&nbsp;pushing&nbsp;and&nbsp;popping! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@CompareNext: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;aFindString&nbsp;character&nbsp;+ &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;aFindStringLength&nbsp;(the&nbsp;last&nbsp;char). &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Al,&nbsp;[ESI+EBX] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;aSourceString&nbsp;character&nbsp;(current &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;position&nbsp;+&nbsp;aFindStringLength). &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Ah,&nbsp;[EDI+EBX] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Compare&nbsp;them. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;Al,&nbsp;Ah &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Jz&nbsp;&nbsp;&nbsp;@Matches &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;they&nbsp;don't&nbsp;match,&nbsp;we&nbsp;put&nbsp;the&nbsp;first&nbsp;char &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;of&nbsp;aFindString&nbsp;into&nbsp;Al&nbsp;again&nbsp;to&nbsp;continue &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;looking&nbsp;for&nbsp;the&nbsp;first&nbsp;character. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Al,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Jmp&nbsp;&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@Matches: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;they&nbsp;match,&nbsp;we&nbsp;DEC&nbsp;EBX&nbsp;(point&nbsp;to &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;previous&nbsp;character&nbsp;to&nbsp;compare). &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;EBX&nbsp;&lt;&gt;&nbsp;0&nbsp;(&quot;J&quot;ump&nbsp;&quot;N&quot;ot&nbsp;&quot;Z&quot;ero),&nbsp;we &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;continue&nbsp;comparing&nbsp;strings. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Jnz&nbsp;&nbsp;@CompareNext &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;Shengquanhu &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@EndOfMatch: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;end &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;EBX&nbsp;is&nbsp;zero,&nbsp;then&nbsp;we've&nbsp;successfully &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;compared&nbsp;each&nbsp;character;&nbsp;i.e.&nbsp;it's&nbsp;A&nbsp;MATCH! &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Move&nbsp;the&nbsp;address&nbsp;of&nbsp;the&nbsp;*current* &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;character&nbsp;in&nbsp;EDI. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Note,&nbsp;we&nbsp;haven't&nbsp;altered&nbsp;EDI&nbsp;since &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;the&nbsp;first&nbsp;char&nbsp;was&nbsp;found. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;EAX,&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;This&nbsp;is&nbsp;an&nbsp;address,&nbsp;so&nbsp;subtract&nbsp;the &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;address&nbsp;of&nbsp;aSourceString[1]&nbsp;to&nbsp;get &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;an&nbsp;actual&nbsp;character&nbsp;position. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;sub&nbsp;&nbsp;EAX,&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Inc&nbsp;EAX&nbsp;to&nbsp;make&nbsp;it&nbsp;1-based, &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;rather&nbsp;than&nbsp;0-based. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;inc&nbsp;&nbsp;EAX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Put&nbsp;it&nbsp;into&nbsp;result. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Result,&nbsp;EAX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Finish&nbsp;this&nbsp;routine! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jmp&nbsp;&nbsp;@TheEnd &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@NextChar: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//This&nbsp;is&nbsp;where&nbsp;I&nbsp;jump&nbsp;to&nbsp;when&nbsp;I&nbsp;want&nbsp;to&nbsp;continue&nbsp;searching&nbsp;for&nbsp;the&nbsp;first&nbsp;char &nbsp;&nbsp;</li> <li class="">//acter&nbsp;of&nbsp;aFindString&nbsp;in&nbsp;aSearchString: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Point&nbsp;EDI&nbsp;(aFindString[X])&nbsp;to &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;the&nbsp;next&nbsp;character. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Inc&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Dec&nbsp;ECX&nbsp;tells&nbsp;us&nbsp;that&nbsp;we've&nbsp;checked &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;another&nbsp;character,&nbsp;and&nbsp;that&nbsp;we're &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;fast&nbsp;running&nbsp;out&nbsp;of&nbsp;string&nbsp;to&nbsp;check! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;dec&nbsp;&nbsp;ECX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;EBX&nbsp;&lt;&gt;&nbsp;0,&nbsp;then&nbsp;continue&nbsp;scanning &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;for&nbsp;the&nbsp;first&nbsp;character. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//if&nbsp;ah&nbsp;is&nbsp;chinese&nbsp;char,jump&nbsp;again &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jz&nbsp;&nbsp;&nbsp;@Result0 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;ah,&nbsp;$80&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;&nbsp;&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Inc&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;&nbsp;ECX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu&nbsp;end &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jnz&nbsp;&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@Result0: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu&nbsp;end &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;EBX&nbsp;=&nbsp;0,&nbsp;then&nbsp;move&nbsp;0&nbsp;into&nbsp;RESULT. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Result,0&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Restore&nbsp;EBX,&nbsp;EDI,&nbsp;ESI&nbsp;for&nbsp;Delphi &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;to&nbsp;work&nbsp;correctly. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Note&nbsp;that&nbsp;they're&nbsp;POPped&nbsp;in&nbsp;the &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;opposite&nbsp;order&nbsp;they&nbsp;were&nbsp;PUSHed. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@TheEnd: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;end; &nbsp;&nbsp;</li> <li class="alt">end; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">//This&nbsp;routine&nbsp;is&nbsp;an&nbsp;identical&nbsp;copy&nbsp;of&nbsp;FastPOS&nbsp;except&nbsp;where&nbsp;commented!&nbsp;The&nbsp;ide &nbsp;&nbsp;</li> <li class="">//a&nbsp;is&nbsp;that&nbsp;when&nbsp;grabbing&nbsp;bytes,&nbsp;it&nbsp;ANDs&nbsp;them&nbsp;with&nbsp;$df,&nbsp;effectively&nbsp;making&nbsp;the &nbsp;&nbsp;</li> <li class="alt">//m&nbsp;lowercase&nbsp;before&nbsp;comparing.&nbsp;Maybe&nbsp;this&nbsp;would&nbsp;be&nbsp;quicker&nbsp;if&nbsp;aFindString&nbsp;was &nbsp;&nbsp;</li> <li class="">//&nbsp;made&nbsp;lowercase&nbsp;in&nbsp;one&nbsp;fell&nbsp;swoop&nbsp;at&nbsp;the&nbsp;beginning&nbsp;of&nbsp;the&nbsp;function,&nbsp;saving&nbsp;a &nbsp;&nbsp;</li> <li class="alt">//n&nbsp;AND&nbsp;instruction&nbsp;each&nbsp;time. &nbsp;&nbsp;</li> <li class="">function&nbsp;FastPosNoCase( &nbsp;&nbsp;</li> <li class="alt">const&nbsp;aSourceString,&nbsp;aFindString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">const&nbsp;aSourceLen,&nbsp;aFindLen,&nbsp;StartPos&nbsp;:&nbsp;integer&nbsp;&nbsp;</li> <li class="alt">)&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">var&nbsp;&nbsp;</li> <li class="alt">SourceLen&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">begin&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;aSourceLen; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;-&nbsp;aFindLen; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;if&nbsp;(StartPos-1)&nbsp;&gt;&nbsp;SourceLen&nbsp;then&nbsp;begin&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;0; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Exit; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;end; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;-&nbsp;StartPos; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;SourceLen&nbsp;+2; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;asm&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;ESI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;push&nbsp;EBX &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;EDI,&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;add&nbsp;EDI,&nbsp;StartPos &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;ESI,&nbsp;aFindString &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;ECX,&nbsp;SourceLen &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Al,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu:just&nbsp;modified&nbsp;the&nbsp;lowercase&nbsp;'a'..'z' &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Al,&nbsp;$7A&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ja&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Al,&nbsp;$61&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//end------------------------------------------ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Make&nbsp;Al&nbsp;uppercase. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;&nbsp;Al,&nbsp;$df&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@ScaSB: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Ah,&nbsp;[EDI] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu:just&nbsp;modified&nbsp;the&nbsp;lowercase&nbsp;'a'..'z' &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Ah,&nbsp;$7A&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ja&nbsp;@CompareChar &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Ah,&nbsp;$61&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;@CompareChar &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//end------------------------------------------ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Make&nbsp;Ah&nbsp;uppercase. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;&nbsp;Ah,&nbsp;$df&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@CompareChar: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;Ah,Al &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jne&nbsp;&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@CompareStrings: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;EBX,&nbsp;aFindLen &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;dec&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;ShengQuanhu &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Jz&nbsp;&nbsp;&nbsp;@EndOfMatch &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;end &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@CompareNext: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Al,&nbsp;[ESI+EBX] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Ah,&nbsp;[EDI+EBX] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu:just&nbsp;modified&nbsp;the&nbsp;lowercase&nbsp;'a'..'z' &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Ah,&nbsp;$7A&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ja&nbsp;@LowerAh &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Al,&nbsp;$61&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;@LowerAh &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//end------------------------------------------ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Make&nbsp;Al&nbsp;and&nbsp;Ah&nbsp;uppercase. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;&nbsp;Al,&nbsp;$df&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu:just&nbsp;modified&nbsp;the&nbsp;lowercase&nbsp;'a'..'z' &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@LowerAh: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Ah,&nbsp;$7A&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ja&nbsp;@CompareChar2 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Ah,&nbsp;$61&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;@CompareChar2 &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//end------------------------------------------ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;&nbsp;Ah,&nbsp;$df&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@CompareChar2: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;Al,&nbsp;Ah &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Jz&nbsp;&nbsp;&nbsp;@Matches &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Mov&nbsp;&nbsp;Al,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu:just&nbsp;modified&nbsp;the&nbsp;lowercase&nbsp;'a'..'z' &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Al,&nbsp;$7A&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;ja&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;Al,&nbsp;$61&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//end------------------------------------------ &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Make&nbsp;Al&nbsp;uppercase. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;&nbsp;Al,&nbsp;$df&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Jmp&nbsp;&nbsp;@NextChar &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@Matches: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Jnz&nbsp;&nbsp;@CompareNext &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;Shengquanhu &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@EndOfMatch: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;end &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;EAX,&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;sub&nbsp;&nbsp;EAX,&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;inc&nbsp;&nbsp;EAX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Result,&nbsp;EAX &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jmp&nbsp;&nbsp;@TheEnd &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@NextChar: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Inc&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;dec&nbsp;&nbsp;ECX &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//if&nbsp;ah&nbsp;is&nbsp;chinese&nbsp;char,jump&nbsp;again &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jz&nbsp;&nbsp;&nbsp;@Result0 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;cmp&nbsp;&nbsp;ah,&nbsp;$80&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jb&nbsp;&nbsp;&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Inc&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Dec&nbsp;&nbsp;ECX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//add&nbsp;by&nbsp;shengquanhu&nbsp;end &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;jnz&nbsp;&nbsp;@ScaSB &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@Result0: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;mov&nbsp;&nbsp;Result,0&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;@TheEnd: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;EBX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;pop&nbsp;&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;end; &nbsp;&nbsp;</li> <li class="alt">end; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">//My&nbsp;move&nbsp;isn&rsquo;t&nbsp;as&nbsp;fast&nbsp;as&nbsp;MOVE&nbsp;when&nbsp;source&nbsp;and&nbsp;destination&nbsp;are&nbsp;both&nbsp;DWord&nbsp;al &nbsp;&nbsp;</li> <li class="">//igned,&nbsp;but&nbsp;it&rsquo;s&nbsp;certainly&nbsp;faster&nbsp;when&nbsp;they&rsquo;re&nbsp;not.&nbsp;As&nbsp;we&rsquo;re&nbsp;moving&nbsp;charac &nbsp;&nbsp;</li> <li class="alt">//ters&nbsp;in&nbsp;a&nbsp;string,&nbsp;it&nbsp;isn&rsquo;t&nbsp;very&nbsp;likely&nbsp;at&nbsp;all&nbsp;that&nbsp;both&nbsp;source&nbsp;and&nbsp;destinat &nbsp;&nbsp;</li> <li class="">//ion&nbsp;are&nbsp;DWord&nbsp;aligned,&nbsp;so&nbsp;moving&nbsp;bytes&nbsp;avoids&nbsp;the&nbsp;cycle&nbsp;penalty&nbsp;of&nbsp;reading/w &nbsp;&nbsp;</li> <li class="alt">//riting&nbsp;DWords&nbsp;across&nbsp;physical&nbsp;boundaries. &nbsp;&nbsp;</li> <li class="">procedure&nbsp;MyMove( &nbsp;&nbsp;</li> <li class="alt">const&nbsp;Source;&nbsp;var&nbsp;Dest;&nbsp;Count&nbsp;:&nbsp;Integer); &nbsp;&nbsp;</li> <li class="">asm&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Note:&nbsp;When&nbsp;this&nbsp;function&nbsp;is&nbsp;called, &nbsp;&nbsp;</li> <li class="">//&nbsp;Delphi&nbsp;passes&nbsp;the&nbsp;parameters&nbsp;as&nbsp;follows: &nbsp;&nbsp;</li> <li class="alt">//&nbsp;ECX&nbsp;=&nbsp;Count &nbsp;&nbsp;</li> <li class="">//&nbsp;EAX&nbsp;=&nbsp;Const&nbsp;Source &nbsp;&nbsp;</li> <li class="alt">//&nbsp;EDX&nbsp;=&nbsp;Var&nbsp;Dest &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;If&nbsp;there&nbsp;are&nbsp;no&nbsp;bytes&nbsp;to&nbsp;copy,&nbsp;just&nbsp;quit &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;altogether;&nbsp;there's&nbsp;no&nbsp;point&nbsp;pushing&nbsp;registers. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;cmp&nbsp;&nbsp;&nbsp;ECX,0&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Je&nbsp;&nbsp;&nbsp;&nbsp;@JustQuit &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Preserve&nbsp;the&nbsp;critical&nbsp;Delphi&nbsp;registers. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;push&nbsp;&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;push&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Move&nbsp;Source&nbsp;into&nbsp;ESI&nbsp;(generally&nbsp;the &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;SOURCE&nbsp;register). &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Move&nbsp;Dest&nbsp;into&nbsp;EDI&nbsp;(generally&nbsp;the&nbsp;DEST &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;register&nbsp;for&nbsp;string&nbsp;commands). &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;This&nbsp;might&nbsp;not&nbsp;actually&nbsp;be&nbsp;necessary, &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;as&nbsp;I'm&nbsp;not&nbsp;using&nbsp;MOVsb&nbsp;etc. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;I&nbsp;might&nbsp;be&nbsp;able&nbsp;to&nbsp;just&nbsp;use&nbsp;EAX&nbsp;and&nbsp;EDX; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;there&nbsp;could&nbsp;be&nbsp;a&nbsp;penalty&nbsp;for&nbsp;not&nbsp;using &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;ESI,&nbsp;EDI,&nbsp;but&nbsp;I&nbsp;doubt&nbsp;it. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;This&nbsp;is&nbsp;another&nbsp;thing&nbsp;worth&nbsp;trying! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;mov&nbsp;&nbsp;&nbsp;ESI,&nbsp;EAX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;mov&nbsp;&nbsp;&nbsp;EDI,&nbsp;EDX &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;The&nbsp;following&nbsp;loop&nbsp;is&nbsp;the&nbsp;same&nbsp;as&nbsp;repNZ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;MovSB,&nbsp;but&nbsp;oddly&nbsp;quicker! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;@Loop: &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;source&nbsp;byte. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Mov&nbsp;&nbsp;&nbsp;AL,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Point&nbsp;to&nbsp;next&nbsp;byte. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Inc&nbsp;&nbsp;&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Put&nbsp;it&nbsp;into&nbsp;the&nbsp;Dest. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;mov&nbsp;&nbsp;&nbsp;[EDI],&nbsp;AL &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Point&nbsp;dest&nbsp;to&nbsp;next&nbsp;position. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Inc&nbsp;&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Dec&nbsp;ECX&nbsp;to&nbsp;note&nbsp;how&nbsp;many&nbsp;we&nbsp;have&nbsp;left&nbsp;to&nbsp;copy. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Dec&nbsp;&nbsp;&nbsp;ECX &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;If&nbsp;ECX&nbsp;&lt;&gt;&nbsp;0,&nbsp;then&nbsp;loop. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Jnz&nbsp;&nbsp;&nbsp;@Loop &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Another&nbsp;optimization&nbsp;note. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Many&nbsp;people&nbsp;like&nbsp;to&nbsp;do&nbsp;this. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Mov&nbsp;AL,&nbsp;[ESI] &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Mov&nbsp;[EDI],&nbsp;Al &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Inc&nbsp;ESI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Inc&nbsp;ESI &nbsp;&nbsp;</li> <li class="">//There&rsquo;s&nbsp;a&nbsp;hidden&nbsp;problem&nbsp;here.&nbsp;I&nbsp;won&rsquo;t&nbsp;go&nbsp;into&nbsp;too&nbsp;much&nbsp;detail,&nbsp;but&nbsp;the&nbsp;Pe &nbsp;&nbsp;</li> <li class="alt">//ntium&nbsp;can&nbsp;continue&nbsp;processing&nbsp;instructions&nbsp;while&nbsp;it&rsquo;s&nbsp;still&nbsp;working&nbsp;out&nbsp;the &nbsp;&nbsp;</li> <li class="">//&nbsp;result&nbsp;of&nbsp;INC&nbsp;ESI&nbsp;or&nbsp;INC&nbsp;EDI.&nbsp;If,&nbsp;however,&nbsp;you&nbsp;use&nbsp;them&nbsp;while&nbsp;they&rsquo;re&nbsp;stil &nbsp;&nbsp;</li> <li class="alt">//l&nbsp;being&nbsp;calculated,&nbsp;the&nbsp;processor&nbsp;will&nbsp;stop&nbsp;until&nbsp;they&rsquo;re&nbsp;calculated&nbsp;(a&nbsp;pen &nbsp;&nbsp;</li> <li class="">//alty).&nbsp;Therefore,&nbsp;I&nbsp;alter&nbsp;ESI&nbsp;and&nbsp;EDI&nbsp;as&nbsp;far&nbsp;in&nbsp;advance&nbsp;as&nbsp;possible&nbsp;of&nbsp;using &nbsp;&nbsp;</li> <li class="alt">//&nbsp;them. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Pop&nbsp;the&nbsp;critical&nbsp;Delphi&nbsp;registers &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;that&nbsp;we've&nbsp;altered. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;pop&nbsp;&nbsp;&nbsp;EDI &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;pop&nbsp;&nbsp;&nbsp;ESI &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;@JustQuit: &nbsp;&nbsp;</li> <li class="alt">end; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;</li> <li class="alt">//Point&nbsp;1:&nbsp;I&nbsp;pass&nbsp;VAR&nbsp;aSourceString&nbsp;rather&nbsp;than&nbsp;just&nbsp;aSourceString.&nbsp;This&nbsp;is&nbsp;be &nbsp;&nbsp;</li> <li class="">//cause&nbsp;I&rsquo;ll&nbsp;just&nbsp;be&nbsp;passed&nbsp;a&nbsp;pointer&nbsp;to&nbsp;the&nbsp;data&nbsp;rather&nbsp;than&nbsp;a&nbsp;10M&nbsp;copy&nbsp;of&nbsp;t &nbsp;&nbsp;</li> <li class="alt">//he&nbsp;data&nbsp;itself,&nbsp;which&nbsp;is&nbsp;much&nbsp;quicker! &nbsp;&nbsp;</li> <li class="">function&nbsp;FastReplace( &nbsp;&nbsp;</li> <li class="alt">var&nbsp;aSourceString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">const&nbsp;aFindString,&nbsp;aReplaceString&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="alt">CaseSensitive&nbsp;:&nbsp;Boolean&nbsp;=&nbsp;False)&nbsp;:&nbsp;String; &nbsp;&nbsp;</li> <li class="">var&nbsp;&nbsp;</li> <li class="alt">//&nbsp;Size&nbsp;already&nbsp;passed&nbsp;to&nbsp;SetLength, &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;the&nbsp;REAL&nbsp;size&nbsp;of&nbsp;RESULT. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;ActualResultLen, &nbsp;&nbsp;</li> <li class="">//&nbsp;Position&nbsp;of&nbsp;aFindString&nbsp;is&nbsp;aSourceString. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;CurrentPos, &nbsp;&nbsp;</li> <li class="">//&nbsp;Last&nbsp;position&nbsp;the&nbsp;aFindString&nbsp;was&nbsp;found&nbsp;at. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;LastPos, &nbsp;&nbsp;</li> <li class="">//&nbsp;Bytes&nbsp;to&nbsp;copy&nbsp;(that&nbsp;is,&nbsp;lastpos&nbsp;to&nbsp;this&nbsp;pos). &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;BytesToCopy, &nbsp;&nbsp;</li> <li class="">//&nbsp;The&nbsp;&quot;running&quot;&nbsp;result&nbsp;length,&nbsp;not&nbsp;the&nbsp;actual&nbsp;one. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;ResultLen, &nbsp;&nbsp;</li> <li class="">//&nbsp;Length&nbsp;of&nbsp;aFindString,&nbsp;to&nbsp;save &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;calling&nbsp;LENGTH&nbsp;repetitively. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FindLen, &nbsp;&nbsp;</li> <li class="alt">//&nbsp;Length&nbsp;of&nbsp;aReplaceString,&nbsp;for&nbsp;the&nbsp;same&nbsp;reason. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ReplaceLen, &nbsp;&nbsp;</li> <li class="alt">SourceLen&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;Integer; &nbsp;&nbsp;</li> <li class="">//&nbsp;This&nbsp;is&nbsp;where&nbsp;I&nbsp;explain&nbsp;the &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;TYPE&nbsp;TFastPosProc&nbsp;from&nbsp;earlier! &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FastPosProc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;TFastPosProc; &nbsp;&nbsp;</li> <li class="alt">begin&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//As&nbsp;this&nbsp;function&nbsp;has&nbsp;the&nbsp;option&nbsp;of&nbsp;being&nbsp;case-insensitive,&nbsp;I&rsquo;d&nbsp;need&nbsp;to&nbsp;call &nbsp;&nbsp;</li> <li class="alt">//&nbsp;either&nbsp;FastPOS&nbsp;or&nbsp;FastPOSNoCase.&nbsp;The&nbsp;problem&nbsp;is&nbsp;that&nbsp;you&rsquo;d&nbsp;have&nbsp;to&nbsp;do&nbsp;this &nbsp;&nbsp;</li> <li class="">//&nbsp;within&nbsp;a&nbsp;loop.&nbsp;This&nbsp;is&nbsp;a&nbsp;bad&nbsp;idea,&nbsp;since&nbsp;the&nbsp;result&nbsp;never&nbsp;changes&nbsp;throughou &nbsp;&nbsp;</li> <li class="alt">//t&nbsp;the&nbsp;whole&nbsp;operation&ndash;in&nbsp;which&nbsp;case&nbsp;we&nbsp;can&nbsp;determine&nbsp;it&nbsp;in&nbsp;advance,&nbsp;like&nbsp;so &nbsp;&nbsp;</li> <li class="">//: &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;if&nbsp;CaseSensitive&nbsp;then&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FastPosProc&nbsp;:=&nbsp;FastPOS &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;else&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FastPOSProc&nbsp;:=&nbsp;FastPOSNoCase; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;I&nbsp;don't&nbsp;think&nbsp;I&nbsp;actually&nbsp;need &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;this,&nbsp;but&nbsp;I&nbsp;don't&nbsp;really&nbsp;mind! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;Result&nbsp;:=&nbsp;''; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;lengths&nbsp;of&nbsp;the&nbsp;strings. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;FindLen&nbsp;:=&nbsp;Length(aFindString); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ReplaceLen&nbsp;:=&nbsp;Length(aReplaceString); &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SourceLen&nbsp;:=&nbsp;Length(aSourceString); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;If&nbsp;we&nbsp;already&nbsp;have&nbsp;room&nbsp;for&nbsp;the&nbsp;replacements, &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;then&nbsp;set&nbsp;the&nbsp;length&nbsp;of&nbsp;the&nbsp;result&nbsp;to &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;the&nbsp;length&nbsp;of&nbsp;the&nbsp;SourceString. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;if&nbsp;ReplaceLen&nbsp;&lt;=&nbsp;FindLen&nbsp;then&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ActualResultLen&nbsp;:=&nbsp;SourceLen &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;else&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;If&nbsp;not,&nbsp;we&nbsp;need&nbsp;to&nbsp;calculate&nbsp;the &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;worst-case&nbsp;scenario. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;That&nbsp;is,&nbsp;the&nbsp;Source&nbsp;consists&nbsp;ONLY&nbsp;of &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;aFindString,&nbsp;and&nbsp;we're&nbsp;going&nbsp;to&nbsp;replace &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;every&nbsp;one&nbsp;of&nbsp;them! &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ActualResultLen&nbsp;:= &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;SourceLen&nbsp;+ &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;(SourceLen&nbsp;*&nbsp;ReplaceLen&nbsp;div&nbsp;FindLen)&nbsp;+ &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ReplaceLen; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//&nbsp;Set&nbsp;the&nbsp;length&nbsp;of&nbsp;Result;&nbsp;this &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;//&nbsp;will&nbsp;assign&nbsp;the&nbsp;memory,&nbsp;etc. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;SetLength(Result,ActualResultLen); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;CurrentPos&nbsp;:=&nbsp;1; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;ResultLen&nbsp;:=&nbsp;0; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;LastPos&nbsp;:=&nbsp;1; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//Again,&nbsp;I&rsquo;m&nbsp;eliminating&nbsp;an&nbsp;IF&nbsp;statement&nbsp;in&nbsp;a&nbsp;loop&nbsp;by&nbsp;repeating&nbsp;code&ndash;this&nbsp;ap &nbsp;&nbsp;</li> <li class="">//proach&nbsp;results&nbsp;in&nbsp;very&nbsp;slightly&nbsp;larger&nbsp;code,&nbsp;but&nbsp;if&nbsp;ever&nbsp;you&nbsp;can&nbsp;trade&nbsp;some &nbsp;&nbsp;</li> <li class="alt">//memory&nbsp;in&nbsp;exchange&nbsp;for&nbsp;speed,&nbsp;go&nbsp;for&nbsp;it! &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;if&nbsp;ReplaceLen&nbsp;&gt;&nbsp;0&nbsp;then&nbsp;begin&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;repeat&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Get&nbsp;the&nbsp;position&nbsp;of&nbsp;the&nbsp;first&nbsp;(or&nbsp;next) &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;aFindString&nbsp;in&nbsp;aSourceString. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Note&nbsp;that&nbsp;there's&nbsp;no&nbsp;If&nbsp;CaseSensitive, &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;I&nbsp;just&nbsp;call&nbsp;FastPOSProc,&nbsp;which&nbsp;is&nbsp;pointing &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;to&nbsp;the&nbsp;correct&nbsp;pre-determined&nbsp;routine. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CurrentPos&nbsp;:= &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;FastPosProc(aSourceString,&nbsp;aFindString, &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;SourceLen,&nbsp;FindLen,&nbsp;CurrentPos); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;If&nbsp;0,&nbsp;then&nbsp;we're&nbsp;finished. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;CurrentPos&nbsp;=&nbsp;0&nbsp;then&nbsp;break; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Number&nbsp;of&nbsp;bytes&nbsp;to&nbsp;copy&nbsp;from&nbsp;the &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;source&nbsp;string&nbsp;is&nbsp;CurrentPos&nbsp;-&nbsp;lastPos, &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;i.e.&nbsp;&quot;&nbsp;cat&nbsp;&quot;&nbsp;in&nbsp;&quot;the&nbsp;cat&nbsp;the&quot;. &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;BytesToCopy&nbsp;:=&nbsp;CurrentPos-LastPos; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Copy&nbsp;chars&nbsp;from&nbsp;aSourceString &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;to&nbsp;the&nbsp;end&nbsp;of&nbsp;Result. &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MyMove(aSourceString[LastPos], &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;Result[ResultLen+1],&nbsp;BytesToCopy); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Copy&nbsp;chars&nbsp