|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
open dialog конфликтует с textfile
Помогите разобраться....
В программе 2 формы. 2ая форма открывает некий файл и выписывает его путь в Edit1.Text Код:
procedure TForm2.btOpenClick(Sender: TObject); begin if opendialog1.execute then if FileExists(OpenDialog1.FileName) then Edit1.Text := OpenDialog1.FileName; OpenDialog1.free; end; А первая сохраняет в другой совсем файл совсем другую запись... procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var f: TextFile; begin Код:
AssignFile(f,'Papka\'+file+'.am'); Rewrite(f); // тут уже коспилятор ругается пишет ошибку Invalif File Name... ошибка возникает только после того как я Воспользуюсь Открытием Open Dialog.. если его не трогать то ошибки не будет.. вообще не вижу связи и логики между ними.. в чем причина??? |
#2
|
|||
|
|||
Я кажется знаю в чем тут дело... Было у меня такое. Дело в том что делфа зачем то запоминает путь ОпенДиалога и потом все относительные адреса начанаются оттуда! Тобишь на самом деле прога пишет не в
Код:
'Papka\'+file+'.am' Код:
OpenDialog1.FileName+'Papka\'+file+'.am' Код:
'Papka\'+file+'.am' Я ни в чем никогда не уверен... И в этом тоже... |
#3
|
|||
|
|||
И кстате текстовым файл в большенстве случаев должен быть не обязательно. А просто File дает больше возможностей...
Я ни в чем никогда не уверен... И в этом тоже... |
#4
|
|||
|
|||
ладно, спасибо, попробую...
p.s. спасибо огромное... все нормально идет... Последний раз редактировалось ApplicatiOn, 15.01.2009 в 18:32. |