[th_bav]

Добрый вечер..., снова я к Вам за помощью, никак не могу победить проблему.
Мне нужно чтобы по нажатию по кнопке открывалась картинка название которой совпадало бы с названием текста в поле Edit1.
Для этого я использую
OpenPictureDialog1
Image3
Edit12

Как мне указать директорию где лежит картинка???

Код:

procedure TDataBase.Button5Click(Sender: TObject);
begin

OpenPictureDialog1.FileName:=Edit12.Text;
OpenPictureDialog1.InitialDir:='C:\Shop\Pictures\'; // на эту строку ругаеться
Image3.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

end.

[Страдалецъ]

А на кой вам вообще OpenPictureDialog1 если путь и имя файла вы задаете ручками?
Достаточно тогда так:

Код:

Image3.Picture.LoadFromFile('C:\Shop\Pictures\' + Edit12.Text);

[th_bav]

Ругается..., и ошибка таже
тип файла у меня bmp, пробывал и с jpeg, картина таже, а в ошибке напсано unknown picture file extension

[Страдалецъ]

С любым bmp-файлом ругается?
А для Jpg надо подключать модуль JPEG
И какой текст в Edit12.Text ?

[th_bav]

Да, с любыми, я даже сейчас на работе попробовал, ошибка таже...,
а Jpeg у меня в Uses прописан...,
а текст в Edit12 у меня - стринги
даже попробовал переименовать файл на английский язык и в поле Edit12 соответственно..., вообщем ошибка таже
unknown picture file extension(.)

[th_bav]

Все оказалось просто до нельзя.....
Image3.Picture.LoadFromFile('C:\Shop\Pictures\' + Edit12.Text + '.bmp');
Может кому пригодиться

[einstein]

еще можно было в едит ввести имя файла с расширением .bmp, тоже прокатило бы

[Страдалецъ]

Ну я так и предположил, что вы неправильно имя файла указываете потому и спросил:

И какой текст в Edit12.Text