Процедура выбора объекта движения по первому пути
На форме устанавливается компонент ComboBox1. При выполнении процедуры изображение получает свойство «видимое», «очищается» предыдущее содержимое компонентов для ввода значений t,v,s.
Происходит присвоение переменной s1 имени файла соответственно выбранному названию объекта с последующей загрузкой рисунка.
Procedure TForm1.ComboBox1Change(Sender: TObject);
begin
i:=0; Image1.Visible:=True; Image1.Left:=1;
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';
If ComboBox1.Text='Автомобиль' then s1:='1.jpg';
If ComboBox1.Text='Грузовик' then s1:='2.jpg';
If ComboBox1.Text='Трактор' then s1:='3.jpg';
If ComboBox1.Text='Мотоцикл' then s1:='4.jpg';
If ComboBox1.Text='Турист' then s1:='5.jpg';
If ComboBox1.Text='Яхта' then s1:='6.jpg';
If ComboBox1.Text='Корабль' then s1:='7.jpg';
If ComboBox1.Text='Самолет' then s1:='8.jpg';
If ComboBox1.Text='Вертолет' then s1:='9.jpg';
If ComboBox1.Text='Воздушный шар' then s1:='10.jpg';
If ComboBox1.Text='Робот' then s1:='11.jpg';
If ComboBox1.Text='Космический корабль' then s1:='12.jpg';
Image1.Picture.LoadFromFile('dris/'+s1);
end;
