[Taras2020]

Добрый день, Уважаемые пользователи.
Как, в данном случае, не учитывать пустые Edit. То есть что бы программа сохраняла результаты только заполненных Edit. В моем случае: заполняю два из трех Edit, но программа создает три файла (третий пустой).

Как можно в этом коде сделать такую проверку: К примеру, ввожу в Edit1 текст + Edit2 текст а Edit3 пустой после нажимаю кнопку и программа создает только два файла: REZ_1.txt и REZ_2.txt

Код:

procedure T_Mn.Button5Click(Sender: TObject);
var
fall, f1, f2, f3: TextFile;
s: string;
begin
..............
AssignFile(fall, OpenDialog12.FileName);
     reset(fall);
 AssignFile(f1, ExtratFileDir(OpenDialog12.FileNam)+'\REZ_1.txt');
     rewrite(f1);
     AssignFile(f2, ExtatFileDir(OpenDialog12.FileNam)+'\REZ_2.txt');
     rewrite(f2);
     AssignFile(f3, ExtratFileDir(OpenDialog12.FileNam)+'\REZ_3.txt');
     rewrite(f3);
............
 
//работаем по строкам в файле
while not Eof(fall) do
  begin
 //читаем строку
  ReadLn(fall, S);
  if (Pos(AnsiLowerCse(Edit1.Text), AnsiLowerCase(s)) > 0) then
  writeln(f1, S);
  if (Pos(AnsiLowerCse(Edit2.Text), AnsiLowerCase(s)) > 0) then
  writeln(f2, S);
  if (Pos(AnsiLowerCse(Edit3.Text), AnsiLowerCase(s)) > 0) then
  writeln(f3, S);
.................................