[Edinora]

у меня есть на форме openpicdialog. я загружаю картинки с другой папки и пересохраняю их в мою.
по появилась проблема после загрузки изображения, у еня пересттает выполнятся условие

Код:

 If DirectoryExists(+'Teams') then 

после того как я прописала

Код:

If DirectoryExists(ExtractFilePath(Application.ExeName)+'Teams') then 

мне выдало путь в папку откуда я грузила картинки. Что мне изменить что бы такого больше не происходило?
код кнопки загрузки:

Код:

    dlgOpenPic1.InitialDir:=ExtractFilePath(Application.Exename);
     if dlgOpenPic1.Execute then
    begin
        fFilePicPath:=ExtractFilePath(dlgOpenPic1.FileName);
        fFilePicName:=ExtractFileName(dlgOpenPic1.FileName);
        ImEmblem.picture.LoadFromFile(fFilePicPath+fFilePicName);
        edt1.Text:= fFilePicPath+fFilePicName;
    end;

[poli-smen]

Сообщение от Edinora

у меня есть на форме openpicdialog. я загружаю картинки с другой папки и пересохраняю их в мою.
по появилась проблема после загрузки изображения, у еня пересттает выполнятся условие

Код:

 If DirectoryExists(+'Teams') then 

Просто TOpenPictureDialog при успешном выборе меняет текущий каталог (CurrentDir).
Можешь например перед вызовом диалога сохранять во временную строковую переменную текущий каталог (функцией GetCurrentDir), а после успешного закрытия диалога восстанавливать его (функцией SetCurrentDir).
Или же пользуйся не относительными, а полными путями.

[icsander]

Попробуй выставить в св-ах компонента Options->ofNoChangeDir:=true