|
|
Регистрация | << Правила форума >> | 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. |
#2
|
||||
|
||||
попробуй так:
Код:
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; |
#3
|
|||
|
|||
Забыл уточнить.
NoteChDate - Это DateTimePicker Дополнение к сути: файл формата dd.mm.yyyy.txt Программка должна загрузить файл в названии которого выбранная пользователем дата |
#4
|
||||
|
||||
И что DateToStr возвращает?
P.S. Попробуй FormatDateTime. |
#5
|
|||
|
|||
RusMaXXX,вечером тяжело работать. Неуглядел один моментик. Спасибо, помогло.
Последний раз редактировалось Кодер, 17.11.2010 в 17:47. |