[ApplicatiOn]

Помогите разобраться....

В программе 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.. если его не трогать то ошибки не будет.. вообще не вижу связи и логики между ними.. в чем причина???

[Interface]

Я кажется знаю в чем тут дело... Было у меня такое. Дело в том что делфа зачем то запоминает путь ОпенДиалога и потом все относительные адреса начанаются оттуда! Тобишь на самом деле прога пишет не в

Код:

'Papka\'+file+'.am'

, а в

Код:

OpenDialog1.FileName+'Papka\'+file+'.am'

Тут надо либо исключить диалог(что не выход). Либо писать абсолютный путь (например: C:\windows...). Либо (что лучше всего, если файл находится в папке с прогой) находишь путь к ехе(смотри фак), а туда добовляшь

Код:

'Papka\'+file+'.am'

Но в принципе при создании файла он должен создать и папку к нему, а не ругаться...

[Interface]

И кстате текстовым файл в большенстве случаев должен быть не обязательно. А просто File дает больше возможностей...

[ApplicatiOn]

ладно, спасибо, попробую...


p.s. спасибо огромное... все нормально идет...