[LexaL]

Помогите.
Как загрузить рисунок в Image или PaintBox, если имя рисунка считывается из файла в отдельную переменную? рисунки лежат с прогой в одной папке в папке img.

[v1s2222]

Интересно, по чему не пользуешься поиском?

Код:

Image1.Picture.LoadFromFile(...); // имя файла.
// если надо загрузить из папки, которая находиться в папке с программой, то можно так:
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Img\NameImg_1.bmp');

[NumLock]

Код:

var
  s: String;
begin
  s:='123.bmp';
  Image1.Picture.LoadFromFile('img\'+s);
end;

[Aristarh Dark]

NumLock, для общего случая ваш метод неверен.

[NumLock]

Сообщение от Aristarh Dark

NumLock, для общего случая ваш метод неверен.

ну у меня же конкретный случай для TImage)

[Aristarh Dark]

Дело не в объекте, а в пути к файлу.

[NumLock]

Сообщение от Aristarh Dark

Дело не в объекте, а в пути к файлу.

не вижу причин не использовать относительные пути для этого примера

[Aristarh Dark]

Если изменится текущий каталог - то код работать не будет.

[NumLock]

Сообщение от Aristarh Dark

Если изменится текущий каталог - то код работать не будет.

будет даже работать с сетевого ресурса! к примеру:
сама программа:
\\gross\Квитанции\Project1.exe
картинка:
\\gross\Квитанции\img\123.bmp

[Aristarh Dark]

Вот жеж блин не верующий-то.
Во вложении демка:
1. Жмем первый баттон, грузится картинка
2. Жмем второй баттон и грузим текст из папки txt
3. Снова жмем первый баттон и видим ошибку.

ВЫВОД: Я умный

[LexaL]

Спасибо за подсказки, но все равно не загружаются рисунки, если в формате bmp возникает ошибка 'bitmap image is not valid'? ,а если в формате jpg - возникаеи ошибка 'unknown picture file extension'

[NumLock]

Aristarh Dark, понял что имелось в виду. но если делать в TForm.OnCreate то все будут счастливы)

LexaL

uses jpeg;

[Delphist]

А вот так????

[Aristarh Dark]

Delphist, ну так-то да

[LexaL]

Подключила uses jpeg, пишет что не может открыть рисунок