sOpenDialog и textfile

[Марк Охман]

Всем привет))) тут такая проблема странная... вот такой код:

if sOpenDialog1.FileName<>'' then k:=sOpenDialog1.FileName;
assignfile(f,'subject.db');
append(f);
writeln(f,sEdit8.Text);

т.е. первая строчка никак не связана с последующими, но в том случае когда значение FileName пусто (т.е. '') выдает ошибку о том что File Not Found и выделяет строчку:

append(f);

Я думаю что когда я делаю команду:

sOpenDialog1.Execute;

"Поле боя" т.е. рабочая папка и которой по идее должен прочитаться файл f становится та папка в которой лежит файл, выбраннный мною в OpenDialog. Если я прав то как это предотвратить (ну или как сделать по другому)? Помогите плиз))

[evg_m]

1 вар. Использовать полный путь к папке программы
assignfile(f, ExtractFilePatch( application.exename ) + 'subject.db');

2. запоминать и восстанавливать текущую папку.
GetCurrentdir + SetCurrentdir

[Марк Охман]

СПасииибо))) огромное) +

[Stilet]

2. запоминать и восстанавливать текущую папку.

Не рекомендую. Морочно. Представь что твоя прога вылетела с ошибкой - дашь гарантию что измененная текущая директория не повлияет на другие процессы? Я нет, ибо когда-то с таким столкнулся, потому всегда теперь использую только первый способ.
ИМХО, SetCurrentdir аттавизм.

[GunSmoker]

Добавлю: ofNoChangeDir + F1

А вообще, самое правильное - использовать абсолютные пути.

Относительные пути придуманы для пользователя, а не для программ.

[Пепел Феникса]

дашь гарантию что измененная текущая директория не повлияет на другие процессы?

ну на другие процессы врятли, а вот другим потокам может(правда в случае отсуствия ошибок)

но первый способ лучше.