Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2012, 18:42   #1
Lovi
Новичок
Джуниор
 
Регистрация: 03.04.2012
Сообщений: 7
По умолчанию Assign связывает переменную с файлом, а как ее развязать обратно

допустим assign(f, 'a.txt'); assign(f, 'b.txt');- будет ошибка, так как f уже привязана к 'a.txt', значит надо как-то убрать эту связь. команда close(f) этого не делает.
Lovi вне форума Ответить с цитированием
Старый 04.04.2012, 19:14   #2
Paster Fob
Форумчанин
 
Аватар для Paster Fob
 
Регистрация: 06.02.2011
Сообщений: 105
По умолчанию

Цитата:
Сообщение от Lovi Посмотреть сообщение
допустим assign(f, 'a.txt'); assign(f, 'b.txt');- будет ошибка, так как f уже привязана к 'a.txt', значит надо как-то убрать эту связь. команда close(f) этого не делает.
почему не делает?Спокойно делает:
Код:
var f:text;
begin
  assign(f,'a.txt');
  .......
  close(f);
  assign(f,'b.txt');
  ....
Paster Fob вне форума Ответить с цитированием
Старый 04.04.2012, 19:19   #3
Paster Fob
Форумчанин
 
Аватар для Paster Fob
 
Регистрация: 06.02.2011
Сообщений: 105
По умолчанию

В качестве примера фрагмент кода рабочей программы.
Код:
var f:text;ch:tchar;
  snA,snB,snC,snD,snE,snF,snG,snH,snI:tset;
begin
  assign(f,'C:\Files for Program Pascal\Granicain.txt');
  reset(f);
  readset(f,snA);
  readset(f,snB);
  readset(f,snC);
  readset(f,snD);
  readset(f,snE);
  readset(f,snF);
  readset(f,snG);
  readset(f,snH);
  readset(f,snI);
  close(f);
  assign(f,'C:\Files for Program Pascal\Granicaout.txt');
  rewrite(f);
  ch:='B';
  writeset(f,snA,snB,ch);
  writeset(f,snA,snC,ch);
  writeset(f,snA,snD,ch);
  writeset(f,snA,snE,ch);
  writeset(f,snA,snF,ch);
  writeset(f,snA,snG,ch);
  writeset(f,snA,snH,ch);
  writeset(f,snA,snI,ch);
  close(f);
end.
Paster Fob вне форума Ответить с цитированием
Старый 04.04.2012, 19:52   #4
Lovi
Новичок
Джуниор
 
Регистрация: 03.04.2012
Сообщений: 7
По умолчанию

это я что-то тупанул, закрывайте эту тему.
Lovi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пребразовать string-строку в число и обратно. - Как? Avaj C++ Builder 16 03.02.2011 19:03
Не удаётся изменить переменную в ДЛЛ. Пошагово, она меняется. А при выходе из функции обратно TwiX Общие вопросы Delphi 6 23.05.2010 11:48
Как загрузить BMP в массив и обратно в С++ Ilja Общие вопросы C/C++ 8 07.03.2009 23:48
Как обратно компелироваль? Ніжний Диявол Общие вопросы Delphi 2 14.05.2008 12:39
как перевести из integer в real(и обратно), и из real в string(и обратно) Ga-sergey Общие вопросы Delphi 2 08.06.2007 21:13