Как настроить функцию Найти?

[belosnezka]

Как настроить функцию Найти? По названию файла, папки, слове в тексте.

Заранее спасибо!

[dolyalexey]

Где эта функция должна работать?

[belosnezka]

Где эта функция должна работать?

На съемном винчестере (по-моему его так зовут).

[tux_edo]

Как настроить функцию Найти? По названию файла, папки, слове в тексте.

Заранее спасибо!

Элементарно!

var

s,s1,s2,s3,s4: string;

k1,k2: integer;

f:file of char;

c:char;

begin

assign(f,'c:\file.txt');

reset(f);

read(f); // исходный текст

write('введите искомое слово 1: ');

readln(s2); // искомое слово

write('введите искомое слово 2: ');

readln(s3); // искомое слово

s1:=s; // временной переменной присваиваем значение исходного текста

while pos(s2,s1)<>0 do // пока такое слово есть в тексте

begin

inc(k1); // увеличиваем счетчик

delete(s1,pos(s2,s1),length(s2)); // удаляем слово из текста

end;

while pos(s3,s1)<>0 do

begin

inc(k2);

delete(s1,pos(s3,s1),length(s3));

end;

close (f);

begin

if (k1>=1) and (k2>=1) then

writeln('в тексте ',k1,'è',k2,' таких слов')

else

writeln('в тексте нет таких слов');

end;

end.

 

Не стОит благодарностей

[belosnezka]

Не стОит благодарностей

Это сильно мудро для меня. Я такое делать не умею.

[tux_edo]

Это сильно мудро для меня. Я такое делать не умею.

 

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