大家觉得怎么样，有什么不好用的地方给个意见

现在想写个风管阻力计算软件，感觉计算风管阻力太麻烦，太慢，老是估算心里没底。
鸿业有个工具不错，但不能计算局部阻力，也有个 叫 局部助力查询的
但不能计算

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,IniFiles;

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
GroupBox1: TGroupBox;
ListBox1: TListBox;
ListBox2: TListBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label10: TLabel;
Label11: TLabel;
Label5: TLabel;
Label9: TLabel;
Edit8: TEdit;
Edit9: TEdit;
RadioGroup1: TRadioGroup;
GroupBox2: TGroupBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure ListBox1Click(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit1DblClick(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);
procedure Edit6Click(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit7Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }

end;

var
Sfg:Single;
Form1: TForm1;
fn:string;
bc:Tinifile;
procedure fgtq();
function SfgJs():Single;
procedure js();
procedure houdu();

implementation

{$R *.dfm}

procedure js; //计算
var
fl,fg,vi,v:Single;
begin
//form1.Edit1.Text:=’1000’;
if form1.Edit1.Text<>’’ then
begin
fl:=strtofloat(form1.Edit1.Text);
end
else
begin
fl:=0;
end;

fg:=SfgJs();
//fg:=1;
if form1.Edit3.Text=’’ then
vi:=1
else
vi:= strtofloat(form1.Edit3.Text);
if (fg=0) or (vi=0) then
form1.Edit4.Text:=’0000’
else
v:=fl/3600/fg/vi;
form1.Edit4.Text:=FloatToStr(v);
end;
procedure fgtq(); //从 mm×mm提取风管尺寸
var
i,t:integer;
a,b:single;
sa,sb,stb,st:string;
begin
stb:=’*’;
st:=form1.edit2.Text;
i:=Pos(stb,st);
if ((i>0) and (i<>length(st))) then
begin
for t:=1 to i-1 do
begin
sa:=sa+st[t]
end;
for t:=i+1 to length(st) do
begin
sb:=sb+st[t];

end;
//showmessage(’sb:’+sb);
end
else
begin
if i>0 then
begin
for t:=1 to i-1 do
begin
sa:=sa+st[t]
end
end
else
begin
sa:=st;
end;
sb:=’-’;
end;
form1.Edit6.Text:=sa;
form1.Edit7.Text:=sb;

end;

function SfgJs():Single; //计算风管面积
begin
if (form1.Edit7.Text=’’) or (form1.Edit6.Text=’’) then
begin
result:=0.000001;
end
else
begin

if form1.Edit7.Text=’-’ then
begin
//showmessage(form1.Edit6.Text);
result:=3.14*(strtofloat(form1.Edit6.Text))*(strtofloat(form1.Edit6.Text))/4/1000000
//result:=13
end
else
begin
result:=(strtofloat(form1.Edit6.Text))*(strtofloat(form1.Edit7.Text))/1000000
end;


end ;
end;

procedure houdu();
var
t:integer;


begin
if form1.Edit6.Text=’’ then
begin
t:=1;
// showmessage(’edit6.text’ +’kong’);
end
else
t:=strtoint(form1.Edit6.Text);

case t of
0..200:form1.Edit5.Text:=’0.5’;
201..500:form1.Edit5.Text:=’0.75’;
501..1000:form1.Edit5.Text:=’1.0’;
1001..2000:form1.Edit5.Text:=’1.2’;
else
form1.Edit5.Text:=’自己看着办吧’;
end;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=false then
begin
label9.Visible:=false;
edit9.Visible:=false
end
else
begin
edit9.Visible:=true;
label9.Visible:=true;
end;
end;





procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:=listbox1.Items.Strings[listbox1.itemindex];
fgtq();
js;

end;

procedure TForm1.Edit4Change(Sender: TObject);
var
min1,mid1,max1,min2,mid2,max2,V:single;
v1:integer;
begin
//edit2.Text:=listbox1.Items.Strings[listbox1.itemindex];
//js;

case RadioGroup1.ItemIndex of

0:begin
min1:=3.5; mid1:=4.5; max1:=6;
min2:=3; mid2:=3; max2:=4.5;

V:=strtofloat(edit4.Text);
{label5.Caption:=’主风管(3.5-4.5)m/s’;
label9.Caption:=’支风管(3)m/s’; }
if v<min1 then
begin
edit8.Text:=’小于推荐风速’ ;
edit8.Color:=Clolive;
end
else
if (v>min1) and (v<mid1) then
begin
edit8.Text:=’在推荐风速内’;
edit8.Color:=clGreen;
end
else
if (v>mid1) and (v<max1) then
begin
edit8.Text:=’大于推荐风速，小于最大风速’;
edit8.Color:=clTeal;
end
else
begin
edit8.Text:=’大于最大风速’;
edit8.Color:=clRed;
end;
if v<min2 then
begin
edit9.Text:=’小于推荐风速’ ;
edit9.Color:=Clolive;
end
else
if (v>min2) and (v<mid2) then
begin
edit9.Text:=’在推荐风速内’;
edit9.Color:=clGreen;
end
else
if (v>mid2) and (v<max2) then
begin
edit9.Text:=’大于推荐风速，小于最大风速’;
edit9.Color:=clTeal;
end
else
begin
edit9.Text:=’大于最大风速’;
edit9.Color:=clRed;
end;


end;
1:begin
{label5.Caption:=’主风管(5-6.5)m/s’;
label9.Caption:=’支风管(3-4.5)m/s’; }
min1:=5; mid1:=6.5; max1:=8;
min2:=3; mid2:=4.5; max2:=6.5;

V:=strtofloat(edit4.Text);
if v<min1 then
begin
edit8.Text:=’小于推荐风速’ ;
edit8.Color:=Clolive;
end
else
if (v>min1) and (v<mid1) then
begin
edit8.Text:=’在推荐风速内’;
edit8.Color:=clGreen;
end
else
if (v>mid1) and (v<max1) then
begin
edit8.Text:=’大于推荐风速，小于最大风速’;
edit8.Color:=clTeal;
end
else
begin
edit8.Text:=’大于最大风速’;
edit8.Color:=clRed;
end;
if v<min2 then
begin
edit9.Text:=’小于推荐风速’ ;
edit9.Color:=Clolive;
end
else
if (v>min2) and (v<mid2) then
begin
edit9.Text:=’在推荐风速内’;
edit9.Color:=clGreen;
end
else
if (v>mid2) and (v<max2) then
begin
edit9.Text:=’大于推荐风速，小于最大风速’;
edit9.Color:=clTeal;
end
else
begin
edit9.Text:=’大于最大风速’;
edit9.Color:=clRed;
end;


end;

2:begin
{ label5.Caption:=’主风管(6-9)m/s’;
label9.Caption:=’支风管(4-5)m/s’; }
min1:=6; mid1:=9; max1:=11;
min2:=4; mid2:=5; max2:=9;

v:=strtofloat(edit4.Text);
if v<min1 then
begin
edit8.Text:=’小于推荐风速’ ;
edit8.Color:=Clolive;
end
else
if (v>min1) and (v<mid1) then
begin
edit8.Text:=’在推荐风速内’;
edit8.Color:=clGreen;
end
else
if (v>mid1) and (v<max1) then
begin
edit8.Text:=’大于推荐风速，小于最大风速’;
edit8.Color:=clTeal;
end
else
begin
edit8.Text:=’大于最大风速’;
edit8.Color:=clRed;
end;
if v<min2 then
begin
edit9.Text:=’小于推荐风速’ ;
edit9.Color:=Clolive;
end
else
if (v>min2) and (v<mid2) then
begin
edit9.Text:=’在推荐风速内’;
edit9.Color:=clGreen;
end
else
if (v>mid2) and (v<max2) then
begin
edit9.Text:=’大于推荐风速，小于最大风速’;
edit9.Color:=clTeal;
end
else
begin
edit9.Text:=’大于最大风速’;
edit9.Color:=clRed;
end;


end;
end;
end;



procedure TForm1.ListBox2Click(Sender: TObject);
begin
edit2.Text:=listbox2.Items.Strings[listbox2.itemindex];
edit7.Text:=’-’;
fgtq;
js;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
fgtq;
js;
end;

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
//js;
end;



procedure TForm1.Edit2Change(Sender: TObject);
begin
fgtq;
js;
end;



procedure TForm1.Edit6Change(Sender: TObject);
begin
js;
houdu();
end;

procedure TForm1.Edit6Click(Sender: TObject);
begin
js
end;

procedure TForm1.Edit7Change(Sender: TObject);
begin
js
end;

procedure TForm1.Edit7Click(Sender: TObject);
begin
js
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
//showmessage(edit3.Text);
js
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
label5.Caption:=’主风管(5-6.5)m/s’;
label9.Caption:=’支风管(3-4.5)m/s’;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
label5.Caption:=’主风管(6-9)m/s’;
label9.Caption:=’支风管(4-5)m/s’;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
label5.Caption:=’主风管(3.5-4.5)m/s’;
label9.Caption:=’支风管(3)m/s’;
end;

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.

以上程序的原代码