Использование изображений в Делфи

[tane]

Здравствуйте)Как сделать,что бы использовать рисунки в программе без указания пути.(Компонент Image)

Есть программа,при нажатии на определенную вкладку(TabControl) появляется информация про страну и картинка.Но у меня при нажатии на любую вкладку появляется ошибка(Рис).Рисунки находятся в папке с программой.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    StringGrid1: TStringGrid;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const
strana:array[1..6,1..6]   of  PChar=
(('Україна' ,'Київ','Гривня' ,'603.7' ,'50.1' ,'ukr.jpg'), ('США','Вашингтон','Долар','9363.2','237.8',' usa.jpg'),
('Англія' ,'Лондон','Фунт стерлінгів' , '244.1', '56.2',' angl.jpg'),
('Франція','Париж' ,'Франк' ,'551.6' ,'55.1' ,' fr.jpg ') ,
('Росія' ,'Москва' ,'Рубль' ,'17075.4' ,'163.7' ,'moskva.jpg') ,
('Китай','Пекін','Юань','9597','1488.5',' kut.jpg'));




procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;
begin
for i:=1 to 6 do
tabcontrol1.Tabs.Add(strana[i,1]);
StringGrid1.Cells[0,0]:='Столиця';
StringGrid1.Cells[0,1]:='Валюта';
StringGrid1 .Cells [0,2]:='Територія (тис.кв.km)';
StringGrid1.Cells[0,3]:='Населення (млн)';
 TabControl1Change(Sender);
end;

procedure TForm1.TabControl1Change(Sender: TObject);

begin

StringGrid1.Cells[1,0]:=strana[TabControl1. TabIndex+1,2] ;
StringGrid1.Cells[1,1]:=strana[TabControl1. TabIndex+1,3] ;
StringGrid1.Cells[1,2]:=strana[TabControl1. TabIndex+1,4] ;
StringGrid1.Cells[1,3]:=strana[TabControl1. TabIndex+1,5] ;
Image1.Picture.loadfromfile(strana[TabControl1. TabIndex+1,6]) ;// вот строка отвечающая за  рисунки 

end;

end.

[type_Oleg]

Попробуй функцию SetCurrentDir

[tane]

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

Попробуй функцию SetCurrentDir

То есть?
Image1.Picture.SetCurrentDir(strana[TabControl1. TabIndex+1,6]) ;

[type_Oleg]

Нет. См. описание этой SetCurrentDir
Там же незря Dir в названии. Установка текущей директории (папки, каталога).
Например

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetCurrentDir(ExtractFileDir(Application.ExeName));
// и т.д.

Если *jpg лежат там же, куда и твой *.exe компилируется.

[Rin]

А зачем setcurrentdir? Есть же GetCurrentDir.

Image1.Picture.LoadfromFile(getCurrentDir+'\'+strana[TabControl1. TabIndex+1,6])

Если картинки хранятся в отдельной папке рядом с прогой, то getCurrentDir+'\папка\'+...

[Serge_Bliznykov]

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

Здравствуйте)Как сделать,что бы использовать рисунки в программе без указания пути.(Компонент Image)

Рисунки находятся в папке с программой.
[/CODE]

менять каталог через SetCurrentDir можно, это будет работать, но это не очень гуманно с точки зрения пользователя.

а чем не устраивает вариант:

Image1.Picture.loadfromfile(ExtractFileDir(Application.ExeName)+strana[TabControl1. TabIndex+1,6]) ;// вот строка отвечающая за  рисунки

[tane]

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

а чем не устраивает вариант:

Image1.Picture.loadfromfile(ExtractFileDir(Application.ExeName)+strana[TabControl1. TabIndex+1,6]) ;// вот строка отвечающая за  рисунки

При запуске программы не находит рис(хотя все они в папке с програмой)

[Serge_Bliznykov]

а так ?

Image1.Picture.loadfromfile(ExtractFileDir(Application.ExeName)+'\'+strana[TabControl1. TabIndex+1,6]) ;// вот строка отвечающая за  рисунки

добавил слеш после пути

[tane]

Россия и Украина показывает,а остальные - нет.

[BDA]

В имени самого файла angl.jpg пробела нет, а в коде программы есть.