Курсовая работа: Работа с двумерными числовыми массивами

30 G_Task4.Cells[i, 0]:= IntToStr(i+1);

31 G_Matrix.Refresh;

32 end;

Процедура FormDestroy выполняется при уничтожении формы и выполняет очень важную функцию – освобождает память, которая выделялась во время работы приложения под матрицу исходных данных.

Процедура saveClick является обработчиком щелчка по пункту меню Файл->Сохранить. Она отображает диалог выбора файла для сохранения, создаёт выбранный файл, а после окончания записи закрывает его:

1 {обработчик Файл->Сохранить}

2 procedure TMainForm.saveClick(Sender: TObject);

3 var

4 outFile: TextFile;

5 begin

6 //отобразим диалог выбора файла для сохранения, если отмена - выходим

7 if SaveDialog.Execute = false then exit;

8 AssignFile(outFile, SaveDialog.Files[0]);

9 ReWrite(outFile);//создадим файл

10 readMatrix;//прочтём матрицу из таблицы

11 Write2DArray(workMatrix, outFile);//запишем матрицу в файл

12 CloseFile(outFile);//закроем файл.

Процедура loadClick ведёт себя так же, только не создаёт файл, а открывает его для чтения:

1 {обработчик Файл->Загрузить}

2 procedure TMainForm.loadClick(Sender: TObject);

3 var

4 inFile: TextFile;

5 begin

6 //отобразим диалог выбора фала для загрузки, если отмена - выходим

7 if OpenDialog.Execute = false then exit;

8 AssignFile(inFile, OpenDialog.Files[0]);

9 Reset(inFile);//подготовим файл к чтению

10 Read2DArray(workMatrix, inFile);//прочтём матрицу из файла

11 writeMatrix;//отобразим матрицу