поиск в файле

[ryton]

j надо увеличивать,а у тебя инкремент на i два раза

[Elm0]

Не не, там инкремент и i и j.

[B_N]

Сообщение от Elm0

ну да - pos...
а вот вопрос
файл типа char я забил в него рандомом отдельных символов.
для того что б найти заданную строку в файле , я себе задачу представил так-
пока не конец файла сувать каждую строку символов в массив и уже оперировать в массиве
если в искомая строка найдена, фиксируем это (inc())
и идем дальше т.е. в тот же массив суем след строку и т.д.

алгоритм верен?

Нет, не верен. Во-первых, в char-файле нет никаких строк. Во-вторых, если начало искомой подстроки придётся на конец буфера, а её конец - на начало "следующего" буфера, то строка таким алгоритмом будет потеряна. Буфер нужно проверять не до самого конца. Вообще, говорю сразу, пример, который привожу, не является оптимальным. В любой книге по ДА или ДМ всегда есть пяток алгоритмов или, по крайней мере, их упоминаний, поиска образцов. Через хэш-суммы, деревья суффиксов и т.п.

var
    i           : longint;
    found       : boolean;
    tmp_idx     : longint;

    needle      : string;
    haystack    : string;

begin

    needle      := 'needle';
    haystack    := 'gf76t78t78fneeghhjneedlejsg67nhdfneedlesfsjks74784248needl';

    i := 1;

    while i - 1 <= (length(haystack) - length(needle)) do begin
        found := false;
        if(haystack[i] = needle[1]) then begin
            found := true;
            for tmp_idx := 1 to length(needle) do begin
                if (haystack [i + tmp_idx - 1] <> needle [tmp_idx]) then begin
                    found := false;
                    break;
                end;
            end;
        end;

        if found then begin
            writeln( needle, 'found at position ', i);
            i := i + length(needle);
        end
        else begin
            i := i + 1;
        end;
    end;

    readln;
end.

[puporev]

В посте №10.

until j<length(s)

Так цикл вообще работать не будет, j всегда меньше length(s)

[Elm0]

офигеть=(((да когда же я научусь думать правильно!!