[Soroka7]

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

Код:

1 2 3 4 5 6

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]

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