Уважаемые, либо я сейчас под вечер не дружу с мозгом, либо причина иначе.
Проверяю файл на существо(в наличии есть), но программа всеравно не открывает его
Код:
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;