Пожалуйста помогите

← →
Scholl © (2002-10-23 11:13) [0]

Как организовать поиск в *.txt файле

← →
F1 (2002-10-24 12:10) [1]

Открываешь файл,

while Not Eof(Файл) do
Считываешь строчку, а в строчке-то я надеюсь найдешь!!!

← →
Semion © (2002-10-27 08:20) [2]

f,:textfile;
filename,s:string;

assignfile(f,filename);

reset(f);
while not(eof(f)) do begin
read(f,s);
{if я здесь проводи поиск символа}

end;

← →
Song © (2002-10-27 08:35) [3]

← →
Yegor Derevenets (2002-10-27 11:43) [4]

while not SeekEOF (F)
do begin
Readln (F, S);
NChar:=Pos (Sample, S);
if NChar<>0
then Writeln ("String "", S, "" contains SubStr!!! At ", NChar);
end;

В двоичном файле все несколько сложнее. Там уже надо самому писать эффективные алгоритмы.

Пожалуйста помогите Найти похожие ветки