Написал функцию, возвращающую true, если данное слово или словосочетание в строке присутствует, но видно где-то накосячил, оно всегда выдает false. Не могу отследить где, кто может помочь или посоветовать как подобное сделать проще?
Код: Выделить всё
function parse(curstr:string; x:string):boolean;
var
valstr,
valx,
i,
j,
k:integer;
begin
valstr := length(curstr);
valx := length(x);
i := 1;
j := 1;
repeat begin
if curstr[i] = x[j] then begin
k := i;
if curstr[k + 1] = x[j + 1] then begin
inc(k);
repeat begin
if curstr[k] = x[j] then parse := true else parse := false;
inc(j);
end;
until j=valx;
j := 1;
end;
end;
inc(i);
end;
until i=valstr;
end;
