Собственно вопрос в чем: В текстовом файле имеются строки вот такого вида:
Delphi1Prolanguage
Delphi2Prolang
Delphi3Proln
Delphi1
Delphi2
Delphi3
Как из этого списка удалить только слова только целые слова. К примеру мне нужно найти все строки где есть словосочетания Delphi1, Delphi2, Delphi3 но если попадаются только чистые слова то их игнорировать.
Результат должен быть:
Delphi1Prolanguage
Delphi2Prolang
Delphi3Proln
Пробовала решить эту задачу используя Pos. Вот что я попытался сделать. Но при таком подходе и те и те строки попадают в результат.
Пояснения к коду:
Var
Frd1: TextFile // Текстовый файл
RS: String; // Строка
mas1 Array of String; // Массив
Fd: Boolean;
Ну и сам кусочек кода обработки....
while not EoF(Frd1) do
begin
// Читаем строку из файла
ReadLn(Frd1, Rs);
// Ищем вхождение фильтрующей строки в массиве
for i:=Low(mas1) to High(mas1) do
begin
Fd := (Pos(mas1[i], Rs) > 0);
// Записываем строку в файл
if Fd then
WriteLn(Fz1, Rs);
end;
end;