PoEx معکوس؟

[mbshareat]

سلام
میخوام یک رشته رو در رشته دیگه رو به ابتدای رشته جستجو بدم. مثلا موقعیت CDE رو قبل از بایت 4 در رشته ABCDEF جستجو بدم.
راه ساده اش این هست:
function RevPosEx(SubS,S:String;P:Word):Word;
Var
I,L:Word;
begin
Result:=0;
L:=Length(SubS);
For I:=P-1 DownTo 1 Do
If Copy(S,I,L)=SubS then
Begin
Result:=I;
Break;
End;
end;

اما این روش کندترین روش هست. بهترین روش جستجوی معکوس رشته کوچک در معکوس رشته بزرگ است.
اما در موقعیت یابی شروع جستجو و برگردوندش به موقعیت در رشته معکوس نشده گیج میشم.
یک تابع نوشتم. دیدم گاهی درست کار نمی کنه.می دونم انجام تکلیف محسوب میشه ولی اگر لطف کنید ، ممنون میشم.

[یوسف زالی]

سلام.
رشته رو ReverseString کن بعد سرچ کن

[mbshareat]

سلام
این رو می دونم. فقط در پیدا کردن محل شروع جستجو و دوبار معکوس کردنش گیج شدم.
این کد رو نوشتم:
function TForm1.RevPosEx2(SubS,S:String;P:Word):Word;
Var
I,L,L2:Word;
begin
Result:=0;
SubS:=ReverseString(SubS);
S:=ReverseString(S);
L:=Length(SubS)-1;
L2:=Length(S)+1;
P:=P-1+L;
If P>Length(S) then
P:=1
Else
P:=L2-P;
P:=PosEx(SubS,S,P);
If P=0 then
Exit;
P:=P+L;
Result:=L2-P;
end;

یک TEdit روی فرم گذاشتم.و اینطور امتحان کردم:
ShowMessage(IntToStr(RevPosEx(Edit1.Text,'ABCDE',5 ))+#13+IntToStr(RevPosEx2(Edit1.Text,'ABCDE',5)));
نتیجه دو تابع یکسان بود.اما هنوز مطمئن نیستم.
نمی دونم چرا میگند انسان از کامپیوتر باهوشتره!!