Ошибка "Неизвестное расширение файла"

[prog38]

Может у кого мысли есть по поводу выдаваемой ошибки
Программка типа электронного альбома. Присутствует радиогруп с 3 радиобатонами-переключают загружаемые фото, в Properties инспектора оббъектов радиобатон1-тэги с 0 до 5, радиобатон2-с 6 до 12, радиобатон3-с 7 до 13. Также есть группБокс2 в котором комбоБокс, где выбираются фото и картинка. ЛистБокс 1 с нормальным именем(типа "Бибика") и листБокс2 где указан путь к файлу на пк(типа с:\Photos...).
Вроде должно работать, но выдает сбщ об ошибке "Unknown picture file extention .jpg"
Прилагаю код:

unit ALB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Image1: TImage;
    ListBox1: TListBox;
    ListBox2: TListBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
var i:integer;
begin
  ComboBox1.Clear;
  comboBox1.Tag:=(Sender as TRadioButton).Tag;
  for i:=1 to 5 do
  comboBox1.Items.Add(listBox1.Items[comboBox1.Tag+i]);
  ComboBox1.ItemIndex:=0;
  image1.Picture.LoadFromFile(listBox2.Items[comboBox1.Tag]);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  image1.Picture.LoadFromFile(listBox2.Items[comboBox1.Tag+comboBox1.ItemIndex]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  radioButton1Click(radioButton1);
end;

end.

[Hollander]

Допиши в uses - jpeg

[prog38]

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

Допиши в uses - jpeg

Дописала. Запускается но пишет что не может найти указанный путь, хотя путь точно тот что нужно прописан в листБоксе2...
Вот как прописала: С:\Photos_2\CIVIC\CIMG9103.JPG
Может флеши не в ту сторону наклонены, хотя кажется так верно??

[zetrix]

исходный код в студию. Не телепаты мы.

P.S.: слеши правильно поставлены.

[prog38]

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

исходный код в студию. Не телепаты мы.

P.S.: слеши правильно поставлены.

Код все тот же? добавила в uses jpeg:

unit ALB;

interface

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

type
  TForm1 = class(TForm)
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Image1: TImage;
    ListBox1: TListBox;
    ListBox2: TListBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
var i:integer;
begin
  ComboBox1.Clear;
  comboBox1.Tag:=(Sender as TRadioButton).Tag;
  for i:=1 to 5 do
  comboBox1.Items.Add(listBox1.Items[comboBox1.Tag+i]);
  ComboBox1.ItemIndex:=0;
  image1.Picture.LoadFromFile(listBox2.Items[comboBox1.Tag]);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  image1.Picture.LoadFromFile(listBox2.Items[comboBox1.Tag+comboBox1.ItemIndex]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  radioButton1Click(radioButton1);
end;

end.

From Stilet: Прилагая код оформляй пожалуйста его соответствующим тегом (#)

[Stilet]

Вместо: image1.Picture.LoadFromFile(listBox 2.Items[comboBox1.Tag+comboBox1.ItemIndex]);
пиши просто:

  image1.Picture.LoadFromFile(listBox2.Items[comboBox1.ItemIndex]);

[prog38]

Все равно ругается( Уже перекинула фотки для загрузки в другую папку, путь стал короче, хотя, кажется, от этого не должно зависеть..а что имелось в виду под оформелением соответствующим тэгом?

это что-то типа paste to clipboard?

В смысле copy to clipboard

[Hollander]

Посмотри что тебе под дебагом возвращает listBox2.Items[comboBox1.Tag+comboBox1.ItemIndex]

[Stilet]

Все равно ругается

Тогда нужно поставить точку останова на image1.Picture.LoadFromFile и посмотреть чему равен параметр его.

что имелось в виду под оформелением соответствующим тэгом?

Для читабельного оформления и разграничения в вопросах кода программ на форуме придуман специальный тег - #. Он оформляет код программы в посте, подсвечивает синтаксис, при этом код становится более читабельным.

[prog38]

после постановки красной точки в квадрате надпись следующего содержания:

Condition:
Action:Break
Group:
Pass count:0

А после запуска дебаггер эксепшен выдает:"проект такой-то вызвал исключение класса EFOpenError ссообщением Невозможно открыть С:\..... Системе не удается найти указанный путь