[LAMER(((]

всем преед. дело в том что у меня курсовой проект по программированию в среде делфи7. (я вообще не понимаю ничего)
сама программа есть. мне только нужны коменты к процедурам и циклам
помогите кто чем может. вот одна из функций:

Код:

function FindSubStr(const SubStr,Str:string):integer;
var SubLen,StrLen,i,j,k:integer;
begin
  Result:=0;
  SubLen:=Length(SubStr);
  StrLen:=Length(Str);
  if (SubLen=0) or (StrLen=0) then Exit;
  i:=SubLen;
  while i<=StrLen do
    begin
      k:=i;
      j:=SubLen;
      while (j>0) and (Str[k]=SubStr[j]) do
        begin
          Dec(k); Dec(j);
        end;
      if j=0 then begin Result:=k+1; Exit; end;
      Inc(i);
    end;
end;

Admin: Пользуемся тегами!

выполняет поиск подстроки....помогите, а. а то ведь завалю защиту