[Soroka7]

Добрый день. Столкнулся с проблемой и не пойму, почему сие чудо не работает.

Код:

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?

[Yurk@]

ищешь "Результаты'+DateToStr(today)+'.txt"
а создаешь "Результаты на '+DateToStr(today)+'.txt"

[Soroka7]

Спасибо, а то от длинного кода уже в глазах рябит