Показать сообщение отдельно
  #58  
Старый 15.04.2008, 22:24
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

Глобальная переменная отличается от локальной тем что объявляется в начале модуля и может быть использована в любой процедуре модуля.
То бишь надо объявить переменную outFile в самом начале Unit6. Вот в этом месте:
Код:
var
  Form6: TForm6;
  Y:array of array of real;
  C:array of array of real;
  A:array of array of real;
  B:array of array of real;
  n:integer;
  m:integer;
  k:integer;
  l:integer;
  outfile:textFile;
В процедурах объявлять эту переменную не надо.

Далее команды
AssignFile(outfile, 'c:\outfile.txt');
Rewrite(outfile);
тоже вызываем один раз перед первой работой с файлом.

Теперь во всех процедурах командами Write занести в файл данные и после последнего занесения использовать команду CloseFile(outfile)