case ComboBox.ItemIndex of 0: AfficherImage('toto.bmp'); 1: AfficherImage('roland.bmp'); 2: [...] 99: AfficherImage('zoo.bmp'); else ShowMessage('Tant pis pour vous'); end;
procedure AfficherImage(fn:string); begin LeTImage.Picture.LoadFromFile(fn); end;
const ArrayOfFileName : array[0..2] of string = ('toto','roland','zoo'); procedure ComboBoxOnClick(Sender[...]); begin AfficherImage(ArrayOfFileName[ComboBox.ItemIndex]+'.bmp'); end;