[Кодер]

Уважаемые, либо я сейчас под вечер не дружу с мозгом, либо причина иначе.
Проверяю файл на существо(в наличии есть), но программа всеравно не открывает его

Код:

var
  path:string;
begin
  path:=ExtractFilePath(ParamStr(0))+'data\note\'+DateToStr(notechdate.date)+'.rtf';
  if FileExists(DateToStr(NoteChDate.Date)) then
    note.Lines.LoadFromFile(DateToStr(NoteChDate.Date))
  else
    begin
    Application.MessageBox(Pchar(DateToStr(NoteChDate.Date)+'<Сообщение об ошибке открытия>'),'<Некая капча>');
    NoteChDate.Date:=Now;
    end;
end;

[RusMaXXX]

попробуй так:

Код:

var
  path:string;
begin
  NoteChDate.Date:=Now;
  path:=ExtractFilePath(ParamStr(0))+'data\note\'+DateToStr(notechdate.date)+'.rtf';
  if FileExists(path) then
    note.Lines.LoadFromFile(path)
  else begin
    Application.MessageBox(Pchar(path+'<Сообщение об ошибке открытия>'),'<Некая капча>');
  end;
end;

[Кодер]

Забыл уточнить.

NoteChDate - Это DateTimePicker

Дополнение к сути: файл формата dd.mm.yyyy.txt
Программка должна загрузить файл в названии которого выбранная пользователем дата

[TOJluK]

И что DateToStr возвращает?
P.S. Попробуй FormatDateTime.

[Кодер]

RusMaXXX,вечером тяжело работать. Неуглядел один моментик. Спасибо, помогло.