поиск в файле

[Elm0]

Здравствуйте как организовать поиск в файле?
файл из символов(char) , а строка задается юзером и имеет тип стринг.

[ryton]

А что именно надо найти?Введенную строку или позицию,с которой в файле начинается эта строка?

[Elm0]

ах да, нужно узнать есть ли строка в файле

[ryton]

function fAnsiPos(const Substr, S: string; FromPos: integer): Integer;
var
P: PChar;
begin
Result := 0;
P := AnsiStrPos(PChar(S) + fromPos - 1, PChar(SubStr));
if P <> nil then
Result := Integer(P) - Integer(PChar(S)) + 1;
end;

[ryton]

это в Delphi,как переделать под паскаль сообразишь?

[Elm0]

нет, не соображу)
в ПАСКАЛЕ нет типа PChar и функции AnsiStrPos..)

[ryton]

там есть функция поиска вхождения подстроки в строку используй ее

[Elm0]

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

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

[ryton]

в принципе да.А зачем ФАйл из символов,возьми просто текстовый.И практичней,и удобней.Берешь любой текстовик и ищешь что надо.Но если надо с символами,то верно

[Elm0]

спасибо большое за помощь
но вот еще вопрос

i:=0; {инициализируем счетчики массива
j:=1;            и строки}
repeat
if A[i]=S[j] then   {Гдето сдесь ошибка, если элемент массива 
                          равен элементу строки то копируем его в другой 
                           массив}
begin
     B[i]:=A[i]
     inc(i);
     inc(j);
   end
else
Writeln('Не равны');
until j<length(s)

Если элементы одинаковы я копирую из одного массива в другой, нет- сразу вывод на экран -Не одинаковы!!!.
ну а потом сравниваю массив a и b если они равны - выводим -равны!!!!
Так вот они у меня постоянно не равны. допустим ввожу элементы массива- 12345
и строку 12345. проверил что у нас в массиве b , так там только 1!!а счетчик то увеличивается...понять не могу....
еще проверил, что по ветке else при таком вводе прога не идет, как и должно быть..
Помогите плз разобраться!