Как записать в массив строки из файла в цикле на delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

var
  MyFile: TextFile;
  MyArray: array of string;
  Line: string;
  i: Integer;
begin
  AssignFile(MyFile, 'filename.txt'); // открыть файл для чтения
  Reset(MyFile);
  i := 0; // индекс элемента массива
  while not Eof(MyFile) do
  begin
    ReadLn(MyFile, Line); // прочитать строку из файла
    SetLength(MyArray, i + 1); // увеличить размер массива
    MyArray[i] := Line; // записать строку в массив
    Inc(i); // увеличить индекс
  end;
  CloseFile(MyFile); // закрыть файл
  // использовать массив MyArray
end;