[pirsddd]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<b>function</b> PosF(<b>const</b> Sub, Str: <b>string</b>; From: Cardinal): Cardinal; <b>var</b>   P: PChar; <b>begin</b>   <b>if</b> From <= Length(Str) <b>then</b>     <b>begin</b>     P := StrPos(PChar(Str) + From - 1, PChar(Sub));     <b>if</b> P <> <b>nil</b> <b>then</b>       Result := P - PChar(Str) + 1     <b>else</b>       Result := 0;     <b>end</b>   <b>else</b>     Result := 0; <b>end</b>;

:

[M.A.D.M.A.N.]

Это что-то типа "Смотрите и учитесь"?