Ошибка из-за открытия диалога

[Marisha*]

Всем привет!

У меня такая проблемка. На некотором этапе моей программы открывается файл и с него считываются данные. Потом по нажатию кнопки можно вызвать диалог и открыть файл (из него берется картинка). Проблема заключатся в том, что после открытия файла из диалога при любом случае вызова процедуры reset выскакивает ошибка 'file not found', если диалог не вызывать, то ошибки.

Не можете подсказть, в чем тут может быть дело?

Если диалог не вызывать, то ошибки нет

[Mixasik]

Ваш вопрос не совсем понятен. Например, надо делать так

if opendialog1.execute then
if fileexists(opendialog1.filename) then
begin
///AssignFile(...);Reset(...)
end;

А вообще лучше бы увидеть ваш код.

[Marisha*]

У меня так:

if OpenDialog1.Execute then begin
Image1.Picture.LoadFromFile(Extract FileName(OpenDialog1.Filename));end ;

А reset потом вызывается для другого файла и происходит ошибка.

[Lime]

Сообщение от Marisha*

У меня так:

if OpenDialog1.Execute then begin
Image1.Picture.LoadFromFile(Extract FileName(OpenDialog1.Filename));end ;

А reset потом вызывается для другого файла и происходит ошибка.

Вы загружаете картинку только из каталога программы , если же картпнка находится в другом месте - вылетает ошибка.
Должно быть

if OpenDialog1.Execute then begin
Image1.Picture.LoadFromFile(OpenDialog1.Filename);end;

И ещё не помешало бы

if opendialog1.execute then
if fileexists(opendialog1.filename) then
begin
Image1.Picture.LoadFromFile(OpenDialog1.Filename);
end;

как Вам написали выше .

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

а как прописан reset того файла?
а точнее меня интересует assignfile
наверно путь относительный используете, но не думаете что текущая папка меняется после диалога...
используйте ExtractFilePath(Application.ExeName ) для получения папки с приложением.

[Marisha*]

Спасибо,

Я кажется поняла, в чем ошибка. У меня в коде:

OpenDialog1.FileName := 'pathways\glucolis.bmp';
if OpenDialog1.Execute then  begin
Image1.Picture.LoadFromFile(ExtractFileName(OpenDialog1.Filename));
end;

Получается, что после закрытия дилога все пути "отсчитываются" от папки pathways(??), и поэтому когда я потом вызываю процедуру открытия другого файла (куда передается string переменная с относительным путем), то файл, понятное дело, не находится. Если указывать полные пути, то все работает.
Можно как-то это исправить? Ведь если прописывать полные пути, то при переносе папки с проектом в другую директорию, нужно будет все пути исправлять, а это неудобно.

Пепел Феникса, я именно про это и говорю)

А Application в ExtractFilePath(Application.ExeName ) это что за переменная? Как ее объявлять и что ей присвоить?

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

это ваше приложение само
её не нужно обьявлять нигде.

[Mixasik]

ExtractFilePath('') - это функция, которая вернет путь до файла, то есть отбросив имя файла, анпример ExtractFilePath(C:\Windows\notepad. exe) - вернет C:\Windows\ . Application.ExeName - это путь до твоего исполняемого файла с учетом его имени. ExtractFilePath(Application.ExeName ) вернет путь каталога в котором лежит выполняемый файл.

[Marisha*]

Спасибо Все работает