سلام
میخوام یک رشته رو در رشته دیگه رو به ابتدای رشته جستجو بدم. مثلا موقعیت 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;

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