Пример курсовой работы по Delphi (Кафедра)

51

showmessage('Ошибка при вводе X2! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_x2.Text:=kontrol; edit_x2.SelLength:=length(kontrol); end;

end;

end;

procedure TForm_result.Edit_y2Change(Sender: TObject); var

kontrol:string; y2 :real;

kod :integer; begin

kontrol:= Edit_y2.Text; if kontrol<>'' then begin val(kontrol,y2,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе Y2! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_y2.Text:=kontrol; edit_y2.SelLength:=length(kontrol); end;

end;

end;

procedure TForm_result.Edit_x3Change(Sender: TObject); var

kontrol:string; x3 :real;

kod :integer; begin

kontrol:= Edit_x3.Text; if kontrol<>'' then begin val(kontrol,x3,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе X3! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_x3.Text:=kontrol; edit_x3.SelLength:=length(kontrol); end;

end;

end;

procedure TForm_result.Edit_y3Change(Sender: TObject); var

kontrol:string; y3 :real;

kod :integer; begin

kontrol:= Edit_y3.Text; if kontrol<>'' then begin val(kontrol,y3,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе Y3! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_y3.Text:=kontrol; edit_y3.SelLength:=length(kontrol); end;

PDF created with pdfFactory Pro trial version www.pdffactory.com

52

end;

end;

procedure TForm_result.Edit_x4Change(Sender: TObject); var

kontrol:string; x4 :real;

kod :integer; begin

kontrol:= Edit_x4.Text; if kontrol<>'' then begin val(kontrol,x4,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе X4! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_x4.Text:=kontrol; edit_x4.SelLength:=length(kontrol); end;

end;

end;

procedure TForm_result.Edit_y4Change(Sender: TObject); var

kontrol:string; y4 :real;

kod :integer; begin

kontrol:= Edit_y4.Text; if kontrol<>'' then begin val(kontrol,y4,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе Y4! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_y4.Text:=kontrol; edit_y4.SelLength:=length(kontrol); end;

end;

end;

procedure TForm_result.Edit_ug1_degChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug1_deg.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG1! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug1_deg.Text:=kontrol; edit_ug1_deg.SelLength:=length(kontrol); end else

begin

PDF created with pdfFactory Pro trial version www.pdffactory.com

53

if ((ug1>360) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в градусах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug1_deg.Text:=''; end;

end;

end;

end;

procedure TForm_result.Edit_ug1_minChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug1_min.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG1! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug1_min.Text:=kontrol; edit_ug1_min.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в минутах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug1_min.Text:=''; end;

end;

end;

end;

procedure TForm_result.Edit_ug1_secChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug1_sec.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG1! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug1_sec.Text:=kontrol; edit_ug1_sec.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в секундах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug1_sec.Text:='';

PDF created with pdfFactory Pro trial version www.pdffactory.com

54

end;

end;

end;

end;

procedure TForm_result.Edit_ug2_degChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug2_deg.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG2! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug2_deg.Text:=kontrol; edit_ug2_deg.SelLength:=length(kontrol); end else

begin

if ((ug1>360) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в градусах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug2_deg.Text:=''; end;

end;

end;

end;

procedure TForm_result.Edit_ug2_minChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug2_min.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG2! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug2_min.Text:=kontrol; edit_ug2_min.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в минутах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug2_min.Text:=''; end;

end;

end;

end;

PDF created with pdfFactory Pro trial version www.pdffactory.com

55

procedure TForm_result.Edit_ug2_secChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug2_sec.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG2! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug2_sec.Text:=kontrol; edit_ug2_sec.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в секундах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug2_sec.Text:=''; end;

end;

end;

end;

procedure TForm_result.Edit_ug3_degChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod

:integer; begin

kontrol:= Edit_ug3_deg.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG3! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug3_deg.Text:=kontrol; edit_ug3_deg.SelLength:=length(kontrol); end else

begin

if ((ug1>360) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в градусах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug3_deg.Text:=''; end;

end;

end;

end;

procedure TForm_result.Edit_ug3_minChange(Sender: TObject);

PDF created with pdfFactory Pro trial version www.pdffactory.com

56

var kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug3_min.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG3! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug3_min.Text:=kontrol; edit_ug3_min.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в минутах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug3_min.Text:=''; end;

end;

end;+

end;

procedure TForm_result.Edit_ug3_secChange(Sender: TObject); var

kontrol:string; ug1 :integer;

kod :integer; begin

kontrol:= Edit_ug3_sec.Text; if kontrol<>'' then begin val(kontrol,ug1,kod);

if kod<>0 then begin

showmessage('Ошибка при вводе UG3! Повторить ввод значения!'); delete(kontrol,length(kontrol),1);

edit_ug3_sec.Text:=kontrol; edit_ug3_sec.SelLength:=length(kontrol); end else

begin

if ((ug1>59) or (ug1<0))and (length(kontrol)>0) then begin

showmessage('Ошибка! Угол в секундах превысил допустимое значение'+#10#13+ 'повторить ввод угла');

Edit_ug3_sec.Text:=''; end;

end;

end;

end;

end.

PDF created with pdfFactory Pro trial version www.pdffactory.com

57

ПРИЛОЖЕНИЕ Д -ТАБЛИЦА СВОЙСТВ ПРИМЕНЯЕМЫХ КОМПОНЕНТ

Таблица Д.1- Список применяемых компонент, свойства которых были

изменены

№		Компонента		№			Компонента
1		ТMainMenu		8		TSavePictureDialog
2		TEdit		9		TButton
3		TLabel		10		TSpeedButton
4		TMemo		11		TBitBtn
5		TStringGrid		12		TImage
6		TopenDialog, TSaveDialog		13		TListImage
7		TOpenPictureDialog		14		………………..
		Таблица Д.2 – Сведения о компонентах и их свойствах
№		Свойства	Значение				Объекты и компоненты
1		2	3				4
1		Action
2		ActiveControl
3		Align	alNone
4		Anchors	[akLeft,akTop]
4.1		akLeft	True
4.2		akTop	True
4.3		akRight	False
4.4		akBottom	False
5		AutoScroll	True
6		AutoSize	False
7		BiDiMode	bdLeftToRight
8		BorderIcons	[biSystem-
			Menu,biMinimize,biMaximize]
8.1		biSystemMenu	True
8.2		biMinimize	True
8.3		biMaximize	True				TForm (form_main)
8.4		biHelp	False
9		BorderStyle	bsSizeable
10		BorderWidth	5
11		Caption	Курсовая работа по
			информатике
12		ClientHeight	364
13		ClientWidth	603
14		Color	$00C9DDC8
15		Constraints	(TSizeConstraints)
15.1		MaxHeight	0
15.2		MaxWidth	0
15.3		MinHeight	0
15.4		MinWidth	0
16		Cursor	crDefault
17		DefaultMonitor	dmActiveForm
18		DockSite	False

PDF created with pdfFactory Pro trial version www.pdffactory.com

58

Продолжение табл. 5.1

	1	2	3	4
	19	DragKind	dkDrag
	20	DragMode	dmManual
	21	Enabled	True
	22	Font	(TFont)
	22.1	Charset	DEFAULT_CHARSET
	22.2	Color	clWindowText
	22.3	Height	-11
	22.4	Name	MS Sans Serif
	22.5	Pitch	fpDefault
	22.6	Size	8
	23	FormStyle	fsNormal
	24	Height	428
	25	HelpContext	0
	26	HelpFile
	27	Hint	Программа Гермоновой Е.Ю.
	28	HorzScrollBar	(TcontrolScrollBar)
	28.1	ButtonSize	0
	28.2	Color	clBtnHighlight
	28.3	Increment	8
	28.4	Margin	0
	28.5	ParentColor	True
	28.6	Position	0
	28.7	Range	588
	28.8	Size	0	TForm (form_main)
	28.9	Smooth	False
	28.10	Style	ssRegular
	28.11	ThumbSize	0
	28.12	Tracking	False
	28.13	Visible	True
	29	Icon	(TIcon)
	30	KeyPreview	False
	31	Left	254
	32	Menu	MainMenu1
	33	Name	Form_main
	34	ObjectMenuItem
	35	ParentBiDiMode	True
	36	ParentFont	False
	37	PixelsPerlnch	96
	38	PopupMenu
	39	Position	poMainFormCenter
	40	PrintScale	poProportional
	41	Scaled	True
	42	ShowHint	False
	43	Tag	0
	44	Top	183
	45	UseDockManager	False
	46	VertScrollBar	(TControlScrollBar)
	46.1	ButtonSize	0

PDF created with pdfFactory Pro trial version www.pdffactory.com

59

Продолжение табл. 5.1

	1	2	3	4
	46.2	Color	clBtnHighlight
	46.3	Increment	8
	46.4	Margin	0
	46.5	ParentColor	True
	46.6	Position	0
	46.7	Range	0
	46.8	Size	0
	46.9	Smooth	False	TForm (form_main)
	46.10	Style	ssRegular
	46.11	ThumbSize	0
	46.12	Tracking	False
	46.13	Visible	True
	47	Visible	False
	48	Width	405
	49	WindowMenu
	50	WindowState	wsNormal
	51	AutoHotkeys	maAutomatic	TMain-
	52	AutoLineReduction	maAutomatic	Menu(MainMenu1)
	53	AutoMerge	False
	54	BiDiMode	bdLeftToRight
	55	Images
	56	Items	(Menu)
	57	Name	MainMenu1
	58	OwnerDraw	False
	59	ParentBiDiMode	True
	60	Tag	0
	61	AllocBy	4
	62	BkColor	clNone
	63	BlendColor	clNone
	64	DrawingStyle	dsNormal
	65	Height	16	TImageL-
	66	ImageType	itImage
				ist(ImageList1)
	67	Masked	True
	68	Name	ImageList1
	69	ShareImages	False
	70	Tag	0
	71	Width	16
	72	DragCursor	crDrag
	73	DragKind	dkDrag
	74	DragMode	dmManual
	75	Enabled	True
	76	FocusControl		Свойства TLa-
	77	Font	(TFont)
				bel(Label1)
	77.1	Charset	DEFAULT_CHARSET
	77.2	Color	clTeal
	77.3	Height	-19
	77.4	Name	MS Sans Serif
	77.5	Pitch	fpDefault

PDF created with pdfFactory Pro trial version www.pdffactory.com

60

Продолжение табл. 5.1

	1	2	3	4
	77.6	Size	14
	78	Height	240
	79	Hint
	80	Layout	tlTop
	81	Left	8
	82	Name	Label1
	83	ParentBiDiMode	True
	84	ParentColor	True
	85	ParentFont	False	Свойства TLa-
	86	ParentShowHint	True
				bel(Label1)
	87	PopupMenu
	88	ShowAccelChar	True
	89	ShowHint	False
	90	Tag	0
	91	Top	40
	92	Transparent	False
	93	Visible	True
	94	Width	171
	95	WordWrap	True
	96	Anchors	[akTop,akRight,akBottom]
	96.1	akLeft	False
	96.2	akTop	True
	96.3	akRight	True
	96.4	akBottom	True
	97	AutoSize	False
	98	Center	False
	99	Constraints	(TSizeConstraints)
	100.1	MaxHeight	0
	100.2	MaxWidth	0
	100.3	MinHeight	0
	100.4	MinWidth	0
	101	Cursor	crDefault
	102	DragCursor	crDrag	TImage(Image1)
	103	DragKind	dkDrag
	104	DragMode	dmManual
	105	Enabled	True
	106	Height	316
	107	Hint
	108	IncrementalDisplay	False
	109	Left	194
	110	Name	Image1
	111	ParentShowHint	True
	112	Picture	(TJPEGImage)
	113	PopupMenu
	114	ShowHint	False
	115	Stretch	True
	116	Tag	0
	117	Top	29

PDF created with pdfFactory Pro trial version www.pdffactory.com