у меня есть на форме 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;