Добрый день. Столкнулся с проблемой и не пойму, почему сие чудо не работает.
Код:
var today:TDateTime;
Begin
today:=Now;
if FileExists('Результаты'+DateToStr(today)+'.txt')
then begin ShowMessage('1'); end
else begin ShowMessage('2'); AssignFile(fil, 'Результаты на '+DateToStr(today)+'.txt'); Rewrite(fil); CloseFile (fil); end;
Админ: Пользуемся тегами для оформления кода.
Создает файл если его нет, далее вносятся всякие данные в него, и перезапуская программу, он выводит сообщение с номером "2", а файл то существует, и перезаписывает его, почему выводит False, если файл в наличии имеется и по всем звездам на небе говориться о True?