Работа с файлами Опции

[Grabitel]

Народ.

Никто не может объяснить как сделать следующее:

IF файл_такой-то_в корневой_папке_существует THEN рабочий цикл
ELSE так_создай_его_и_работай

Может для этого следует подключить модуль dos?
И, если не трудно, где можно слить модули. А то у меня какая-то общипанная версия Pascal'я - только crt.

Grabitel.

[SKVOZNJAK]

Сабж есть на сайте в разделах дистрибутивов и литературы.

[Grabitel]

а нельзя ли поточнее?
там столько лит-ры...
и ещё (к админам): в статьях много битых ссылок...

[AlaRic]

Насчет ссылок знаем, ведется работа!

[trminator]

Существует ли файл:

Код

var f: text;
begin
   assign(f, 'c:qwe.rty');
   {$I-}
   reset(f);
   {$I+}
   if IOResult<>0 then writeLn('File not found')
end.

[Grabitel]

я это знаю. мне надо как СОЗДАТЬ файл на Pascal

[trminator]

Код

   assign(f, 'c:qwe.rty');
   rewrite(f) {Если файл существует, он будет перезаписан. Если нет - будет создан}

[Grabitel]

спасибо.