Цитата:
Сообщение от Страдалецъ
2. Учитесь оптимизировать код. В вашем кейсе одно и то-же почти без изменений 4 раза. Вынесите за кейс, то что едино примерно так:
Код:
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
LabeledEdit1.Visible:=True;
LabeledEdit2.Visible:=True;
LabeledEdit3.Visible:=False;
LabeledEdit4.Visible:=false;
LabeledEdit5.Visible:=false;
LabeledEdit6.Visible:=false;
Image1.Visible:=false;
case ComboBox2.itemindex of
0: begin
Image1.Picture.LoadFromFile('1.jpg');
end; {0}
1: begin
Image1.Picture.LoadFromFile('2.jpg');
end; {1}
2: begin
Image1.Picture.LoadFromFile('2.jpg');
end; {2}
3: begin
Image1.Picture.LoadFromFile('3.jpg');
LabeledEdit3.Visible:=True;
end; {3}
end; {case }
Image1.Visible :=True;
end;
|
Запомнил на будущее, просто я еще не доработал в той области. Там разные данные будут.