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

procedure PageControl1Changing(Sender: TObject;

var AllowChange: Boolean);

procedure PageControl1Change(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure About1Click(Sender: TObject);

private

{ Private declarations }

public

i:boolean;

nn1,nn2,nn3,dd,wll:real;

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

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

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

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

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

else key:=chr(0);

end;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);