Ищу строки в текстовом файле, по ключевым словам, используя функцию Pos.
Код:
If pos ('Slovo1 Slovo2',s) > 0 then
writeln(fayl, S);
Не пойму, как подключить Edit1.Text, чтобы можно было задавать в Edit1 не одно слово а много слов, используя пробел как разделитель между словами.
Вот так изменил (Но в таком случае ищется все что задано в edit, целиком):
If pos (Edit1.text,s) > 0 then
writeln(fayl, S);
TEdit
не совпадает с текстом, прочитанным из файла в плане регистра. Функция Pos регистрозависима. Т.е., если в компонентTEdit
написать: "тЕкст", а в читаемом файле будет слово "текст", то ничего найдено не будет, следовательно, в выходной файл ничего не запишется.TEdit
и "разбито" пробелом. Дайте тогда пример строки, может дело в функции Pos.