[HardRock]

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

[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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, потом этот код будет работать почти без изменений.