[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: Пользуемся тегами!

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

[Bars1992]

Вот оболочка для твоей функции http://ifolder.ru/17901651

[LAMER(((]

спасиб. но мне не совсем то нужно было. мне нужны коменты, что бы я по ним мог рассказать как прога в целом работает

[LAMER(((]

http://file.qip.ru/file/130199818/d580b6bd/_online.html
это вот курсовой сам в целом

[W1ndow]

Вот к той функции которая описана в первом посте могу сказать, что затея с написанием этой функции глупа как и автор, который её придумал так как есть такая уже написаная функция Pos(SubStr,Str), где SubStr - это подстрока, а Str - строка в которой будет происходит ьпоиск подстроки.

[LAMER(((]

автор не я, я бы даже до такого бы не додумался(
просто мне сделали так, как нас учили в техникуме
ну дак что с коментами? поможете?

[Aristarh Dark]

Закрою я наверное тему, есть Pos и PosEx этого более чем достаточно.
ЗЫЖ Они доступны в исходниках....