[HardRock]

Здравствуйте, нужна помощь! В папке с проектом есть 2 картинки. На форме есть комбобокс. Нужно, чтобы при выборе той или иной строчки комбобокса открывалась одна из этих картинок.

[lmikle]

Код:

const
  imgFiles : Array [0..1] Of String = ('File1.jpg','File2.bmp');

procedure TForm1.ComboBox1.Change(SEnder : TObject);
var
 AFileName : String;
begin
  If ComboBox1.ItemIndex <> -1 Then 
    Begin
      AFileName := ExtractFilePath(Application.ExeName) + imgFiles[ComboBox1.ItemIndex];
      Image1.Picture.LoadFromFile(AFileName);
    End;
end;

Это если все заранее известно. Если заранее кол-во картинко не известно, то надо сначала их найти, загрузить в массив в ComboBox, потом этот код будет работать почти без изменений.