Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода

case key of

'0'..'9', chr(8): ;

'-': if length(edit5.text)<>0 then key:=chr(0) else key:=chr(45);

'.': if pos(',',edit5.text)<>0 then key:=chr(0) else key:=chr(44);

',': if pos(',',edit5.text)<>0 then key:=chr(0) else key:=chr(44);

else key:=chr(0);

end;

end;

procedure TForm1.PageControl1Changing(Sender: TObject;

var AllowChange: Boolean);

begin

allowchange:= tschng(strtofloat(edit1.text),strtofloat(edit2.text),strtofloat(edit3.text),strtofloat(edit4.text),strtofloat(edit5.text));

end;

procedure TForm1.PageControl1Change(Sender: TObject);

//основная процедура программы, привязанная к смене закладки

//по её ходу и осуществляются все вычисления и построение графиков

var

n:byte;

k:integer;

a,b,c,f:real;

begin

nn1:=strtofloat(edit1.text);

nn2:=strtofloat(edit2.text);

nn3:=strtofloat(edit3.text);

dd:=strtofloat(edit4.text)/1000000;

wll:=strtofloat(edit5.text)/1000000000;

if pagecontrol1.activepage=(tabsheet1) then

begin

i:=false;