Извините, что задаю такой вопрос, но в Pascal'e/Delphi я слабоват.

Вопрос:
-как найти в текстовом файле все строки, содержащие S подстроку и вывести все эти строки?

Заранее спасибо, KVinD.

| Сообщение посчитали полезным:

Используй функцию pos

| Сообщение посчитали полезным:

Если не сложно, помогите набросать цикл, голова не варит , а сдавать завтра

| Сообщение посчитали полезным:

Для паскаля де то так :
var s,p:string;
begin
write ('Чего искать - '); readln (p);
assign (input,'text.txt'); reset (input);
repeat
readln (s);
if pos (p,s)>0 then writeln (s);
until eof;
close (input);
end.

| Сообщение посчитали полезным:

Спасибо Malice

| Сообщение посчитали полезным:

Да. КрякЛаб рулит

| Сообщение посчитали полезным: