上传一个风管快速选取升级版程序。。

以上程序的原代码

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:begin
label5.Caption:=’主风管(3.5-4.5)m/s’;
label9.Caption:=’支风管(3)m/s’;
end;
1:begin
label5.Caption:=’主风管(5-6.5)m/s’;
label9.Caption:=’支风管(3-4.5)m/s’;
end;
2:begin
label5.Caption:=’主风管(6-9)m/s’;
label9.Caption:=’支风管(4-5)m/s’;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//form1.Edit1.Text:=’1000’;
fn:=extractfilepath(paramstr(0));//提取程序的路径
bc:=tinifile.Create(fn+’data.ini’); //+’data\’
//if fileexists(’data.ini’) then begin
edit1.Text:=bc.ReadString(’main’,’e1’,’16000’);
edit2.Text:=bc.ReadString(’main’,’e2’,’800*500’);
edit3.Text:=bc.ReadString(’main’,’e3’,’1’);
edit4.Text:=bc.ReadString(’main’,’e4’,’0’);
edit5.Text:=bc.ReadString(’main’,’e5’,’1.0’);
edit6.Text:=bc.ReadString(’main’,’e6’,’800’);
edit7.Text:=bc.ReadString(’main’,’e7’,’500’);
edit8.Text:=bc.ReadString(’main’,’e8’,’0’);
edit9.Text:=bc.ReadString(’main’,’e9’,’0’);
label5.Caption:=bc.ReadString(’main’,’l5’,’主风管(6-9)m/s’);
label9.Caption:=bc.ReadString(’main’,’l9’,’支风管(4-5)m/s’);
RadioGroup1.ItemIndex:=bc.ReadInteger(’main’,’R1’,2);
CheckBox1.Checked:=bc.ReadBool(’main’,’c1’,true);
CheckBox2.Checked:=bc.ReadBool(’main’,’c2’,true);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bc.WriteString(’main’,’e1’,edit1.Text);
bc.WriteString(’main’,’e2’,edit2.Text);
bc.WriteString(’main’,’e3’,edit3.Text);
bc.WriteString(’main’,’e4’,edit4.Text);
bc.WriteString(’main’,’e5’,edit5.Text);
bc.WriteString(’main’,’e6’,edit6.Text);
bc.WriteString(’main’,’e7’,edit7.Text);
bc.WriteString(’main’,’e8’,edit8.Text);
bc.WriteString(’main’,’e9’,edit9.Text);
bc.WriteString(’main’,’l5’,label5.Caption);
bc.WriteString(’main’,’l9’,label9.Caption);
bc.writeinteger(’main’,’R1’,RadioGroup1.ItemIndex);
bc.WriteBool(’main’,’c1’,CheckBox1.Checked);
bc.WriteBool(’main’,’c2’,CheckBox2.Checked);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=false then
begin
label5.Visible:=false;
edit8.Visible:=false
end
else
begin
label5.Visible:=true;
edit8.Visible:=true;
end;
end;

end.