Как считать двумерный массив из файла *.txt в delphi?

Пользователь

от autumn_parker , в категории: Другие , 8 месяцев назад

Как считать двумерный массив из файла *.txt в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от jerrold_langworth , 7 месяцев назад

@autumn_parker 

Для чтения двумерного массива из файла *.txt в Delphi можно использовать следующий код:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  input: TextFile;
  arr: array of array of Integer;
  i, j, n, m: Integer;
begin
  AssignFile(input, 'input.txt'); // указываем имя файла
  Reset(input); // открываем файл для чтения

  // читаем размеры массива
  ReadLn(input, n);
  ReadLn(input, m);

  // создаем массив нужного размера
  SetLength(arr, n, m);

  // читаем элементы массива
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      Read(input, arr[i, j]);

  CloseFile(input); // закрываем файл
end;


В этом коде мы открываем файл для чтения с помощью AssignFile и Reset, читаем размеры массива и создаем массив нужного размера с помощью SetLength. Затем мы читаем элементы массива из файла с помощью двух циклов for и Read, после чего закрываем файл с помощью CloseFile.


Пример файла input.txt с содержимым:

1
2
3
4
5
3
4
1 2 3 4
5 6 7 8
9 10 11 12


Результат выполнения кода будет таким, что в массив arr будут сохранены числа из файла.