TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabel ;: TLabeledEdit ;: TLabel ;: TGroupBox ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TLabeledEdit ;: TImage ;: TImage ;: TLabel ;: TGroupBox ;: TImage;:TImage ;: TLabeledEdit ;: TImage ;: TLabel ;: TLabeledEdit ;: TImage ;: TLabel ;: TLabeledEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TGroupBox ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TImage ;: TImage; FormActivate (Sender: TObject); BackBtnClick (Sender: TObject); CADMinBtnClick (Sender: TObject); CADCloseBtnClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); TempBtnClick (Sender: TObject); TempBtnMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); TempBtnMouseLeave (Sender: TObject); CADBtnMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer ); CADBtnMouseLeave (Sender: TObject); CADBtnClick (Sender: TObject); RectBtnClick (Sender: TObject); ParallBtnClick (Sender: TObject); TrapBtnClick (Sender: TObject); TriangleBtnClick (Sender: TObject); CircleBtnClick (Sender: TObject) ; EllipseBtnClick (Sender: TObject); PolyBtnClick (Sender: TObject); RectALEditChange (Sender: TObject); RectBLEditChange (Sender: TObject); RectALEditEnter (Sender: TObject); RectBLEditEnter (Sender: TObject); RectCalcLblClick (Sender: TObject); ParallBLEditChange (Sender: TObject); ParallBLEditEnter (Sender: TObject); ParallHLEditChange (Sender: TObject); ParallHLEditEnter (Sender: TObject); ParallCalcLblClick (Sender: TObject); TrapALEditChange (Sender: TObject); TrapBLEditChange (Sender: TObject); TrapALEditEnter (Sender: TObject); TrapBLEditEnter (Sender: TObject); TrapHLEditChange (Sender: TObject); TrapHLEditEnter (Sender: TObject); TrapCalcLblClick (Sender: TObject); TriangleBLEditChange (Sender: TObject); TriangleBLEditEnter (Sender: TObject); TriangleHLEditChange ( Sender: TObject); TriangleHLEditEnter (Sender: TObject); TriangleCalcLblClick (Sender: TObject); CircleRLEditChange (Sender: TObject); CircleRLEditEnter (Sender: TObject); CircleCalcLblClick (Sender: TObject); EllipseALEditChange (Sender: TObject); EllipseALEditEnter (Sender:TObject); EllipseBLEditChange (Sender: TObject); EllipseBLEditEnter (Sender: TObject); EllipseCalcLblClick (Sender: TObject); PolyALEditChange (Sender: TObject); PolyALEditEnter (Sender: TObject); PolyNLEditChange (Sender: TObject); PolyNLEditEnter (Sender: TObject); PolyCalcLblClick (Sender: TObject); CustomerLEditChange (Sender: TObject); SRoomLEditChange (Sender: TObject); LampLEditChange (Sender: TObject); PipeLEditChange (Sender: TObject); SquareLEditChange (Sender: TObject); PriceCalcLblClick (Sender: TObject ); LampPriceLEditChange (Sender: TObject); PipePriceLEditChange (Sender: TObject);
{Private declarations}
{Public declarations}; InputCheck (CheckString: String) ;: TCADForm ;: Real ;: Real ;: Real ;: Real ;: Byte ;: Real ;: String ;: Real ;: Real;:Byte ;: Byte ;: Real ;: Real ;: Real ;: Real ;: Real; MainUnit, FogUnit, ClosingUnit, CADUnitWTools;
{$ R *. dfm} SaveResults (Shape: String; a: Real; b: Real; h: Real; r: Real; n: Byte; S: Real);// Процедура для збереження результатів розрахунків за шаблоном: TextFile ;: String ;: TSYSTEMTIME ;:=DateToStr (SysUtils. Date); (LocalTime) ;:= + Date + + IntToStr (LocalTime. WHour) + - + IntToStr (LocalTime. WMinute) + - + IntToStr (LocalTime. WSecond) + + Shape + laquo ;. txt raquo ;; (ResFile, NameString); not FileExists (NameString) then (ResFile); (ResFile) ;; (ResFile); (ResFile, Date); (ResFile, Time); (ResFile, Shape); a lt; gt ; 0 then (ResFile, Сторона а = + FloatToStr (a) + м. Raquo;); b lt; gt; 0 then (ResFile, Сторона b = + FloatToStr (b) + м. Raquo;); h lt; gt; 0 then (ResFile, Висота h = + FloatToStr (h) + м. Raquo;); r lt; gt; 0 then (ResFile, Радіус r = + FloatToStr (r) + м. Raquo;); n lt; gt; 0 then (ResFile, Кількість сторін b = + IntToStr (n)); (ResFile, Площа стелі= + FloatToStr (S) + кв. М. Raquo ;); (ResFile); (ResFile) ;; InputCheck (CheckString: String);// Процедура, що перевіряє коректність вводяться значень: Boolean ;: Boolean ;: Byte ;: Boolean ;: Byte ;: Byte ;:=FALSE ;:=FALSE ;:=TRUE ;:=TRUE ;:=FALSE ;:=0; Length (CheckString)=0 then
begin:=TRUE ;:= Це поле обов'язково для введення. raquo ;;
if LogFileDisabled=FALSE then ( Спроба введення порожнього рядка ) ;; Empty=FALSE thenIsWord=TRUE theni:=1 to Length (CheckString) doj:=1 to 26 doIllChar [j]= CheckString [i] then
begin:=FALSE ;:= Введене значення не може містити символів латинського алфавіту. raquo ;;
...
