|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вечером тяжело писать код
Уважаемые, либо я сейчас под вечер не дружу с мозгом, либо причина иначе.
Проверяю файл на существо(в наличии есть), но программа всеравно не открывает его Код:
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; Последний раз редактировалось Кодер, 17.11.2010 в 16:43. |