Существует ли файл на диске ? Опции

[Tan]

Написав программу, забыл учесть одно выжное условие, что если введённое пользователем имя файла, который надо создать уже создан, как это определить ?
Хочу дополнить данный код этим условием но не знаю как, вот такая проблемка.
То есть смысл такой : если файл с таким именем уже есть то мы просто делаем reset(MYFILE), если нету, то rewrite(MYFILE); вот куда я хочу внедрить это условие:

{$I-}
assign(MyFile, filename);
reset (MyFile);
{$I+}
for i:=1 to Length(filename) do
   begin
    if (ord(filename[i]) < 48 ) or ((ord (filename[i])) > 57)  and  ((ord (filename[i]) < 65))
    or (((ord (filename[i])) > 91) and ((ord(filename[i]) < 96))) then RC:=-1 else RC:=0;
   end;
if RC <> 0 then begin writeln ('Файл не создан, ошибка в названии'); exit; end
  else rewrite (MyFile);

Сообщение отредактировано: Tan - 17.03.2007 17:40