Выбор в ComboBox и открытие файла по нажатию кнопки ОК

above92

как реализовать выбор года из ComboBox и по нажатию кнопки ОК открытие xlsx файла в интернете много кодов но ни один не подходит
2 ответа

above92

в интернете много кодов но ни один не подходит
Так зачем добавлять ещё один? Где гарантия что он таки вам подойдет? Вы же не говорите чем они вам не подходят.


above92

не подходят
Так зачем добавлять ещё один? Где гарантия что он таки вам подойдет? Вы же не говорите чем они вам не подходят.
не подходят
procedure TForm18.BitBtn1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0: ShellExecute(Application.Handle,PChar('open'),
PChar('2018.xlsx'), PChar(0), nil, SW_NORMAL);
 
1: ShellExecute(Application.Handle,PChar('open'),
PChar('2017.xlsx'), PChar(0), nil, SW_NORMAL);
 
2: ShellExecute(Application.Handle,PChar('open'),
PChar('2016.xlsx'), PChar(0), nil, SW_NORMAL);
end;
end;