Передача строк из Memo в массив \ DelphiXE

[Kirilis2018]

Что не правильно сделано в коде, просто создает пустой файл ?

procedure TForm1.Button1Click(Sender: TObject);
var
fall, f1: TextFile;
S: string;
mas : array [0..3000] of string;
i: integer;
begin
if OpenDialog1.Execute then
begin
     AssignFile(fall, OpenDialog1.FileName);
     reset(fall);
     AssignFile(f1, ExtractFileDir(OpenDialog1.FileName)+'\Rezultat_1.txt');
     rewrite(f1);
     end;
 
 // Вот тут не могу понять правильно сделал или ?????
 for i:=0 to Memo1.Lines.Count-1 do
 mas[i] := Memo1.Lines.Strings[i];
 
//работаем по строкам в файле
 while not Eof(fall) do
  begin
 //читаем строку
  ReadLn(fall, S);
 
// Поиск строки используя строки из memo  - mas[i]
if (Pos(mas[i], s) > 0)
then
writeln(f1, S);
   end;
 
CloseFile(fall);
CloseFile(f1);
end;

Сообщение отредактировано: Kirilis2018 - 01.10.18, 05:41

[Kirilis2018]

Все, задачу решил, ошибка была в передачи массива.

Сообщение отредактировано: Kirilis2018 - 01.10.18, 05:12