if LogFileDisabled=FALSE then ( Спроба введення латинських букв ) ;;; i:=1 to Length (CheckString) doj:=61 to 86 doIllChar [j]=CheckString [i] then
begin:=FALSE ;:= Введене значення не може містити символів латинського алфавіту. raquo ;;
if LogFileDisabled=FALSE then ( Спроба введення латинських букв ) ;;; i:=1 to Length (CheckString) doj:=120 to 150 doIllChar [j]=CheckString [i] then
begin:=FALSE ;:= Введене значення не може містити знаків пунктуації. raquo ;;
if LogFileDisabled=FALSE then ( Спроба ввести знаки пунктуації ) ;;; i:=1 to Length (CheckString) doj:=1 to 10 doIllNum [j]=CheckString [i] then
begin:=FALSE ;:= Введене значення не може містити цифр. raquo ;;
if LogFileDisabled=FALSE then ( Спроба введення цифр ) ;;; i:=1 to Length (CheckString) do (CheckString [i]= ) and (CheckString [i + 1]= ) then
begin:=FALSE ;:= Введене значення не може утримувати двох прогалин поспіль. raquo ;;
if LogFileDisabled=FALSE then ( Спроба введення двох прогалин поспіль ) ;;;; CheckString [1]=, then
begin:=FALSE ;:= Введене значення не повинно починатися з комою. raquo ;; LogFileDisabled=FALSE then ( Спроба введення рядка, яка починається з коми );
end; (CheckString [1]= 0 ) and (CheckString [2] lt; gt; , ) and (IsCoordinate=FALSE) then
begin:=FALSE ;:= Введене значення не може починатися з нуля, не будучи дробовим. raquo ;; LogFileDisabled=FALSE then ( Спроба введення рядка, яка починається з нуля і не містить дробу );
end; (CheckString [1]= 0 ) and (CheckString [2]= 0 ) then
begin:=FALSE ;:= Перед коми не може бути двох і більше нулів. raquo ;; LogFileDisabled=FALSE then ( Спроба введення рядка, яка містить два і більше нулів перед комою );
end; i:=1 to Length (CheckString) doCheckString [i]=, then (CommaCounter); CommaCounter gt; 1 then
Check:=FALSE ;:= Десятковий дріб не може містити дві і більше запитах. raquo ;; LogFileDisabled=FALSE then ( Спроба введення числа, яке містить більше однієї коми );
end ;; IsWord=FALSE theni:=1 to Length (CheckString) doj:=1 to 151 doIllChar [j]=CheckString [i] then:=FALSE ;:=TRUE;
if IsInt=FALSE then:= Введене значення не повинно містити літер, прогалин і розділових знаків, крім коми. raquo ;:= Введене значення не повинно містити букв, про?? ялинові і розділових знаків. raquo ;; LogFileDisabled=FALSE then ( Спроба введення рядка, яка містить букви, пропуски і розділові знаки );
end ;;; (IsInt=TRUE) and (CommaCounter lt; gt; 0) then:=FALSE; IsCoordinate=TRUE then
ErrorString:= Координата не може бути дробової raquo ;:= Кількість не може бути виражене дробом. raquo ;; LogFileDisabled=FALSE then ( Спроба введення рядка, яка містить нецелочисленное значення );
end; (IsCoordinate=TRUE) and (IsX=TRUE) and (HasLetters=FALSE) {and (IsWord=FALSE)} thenStrToFloat (CheckString) gt; 898 then
Check:=FALSE ;:= Введена координата виходить за межі діапазону. raquo ;; LogFileDisabled=FALSE then ( Спроба введення координати, виходить межі діапазону по X );
end ;; (IsCoordinate=TRUE) and (IsY=TRUE) and (HasLetters=FALSE) and (IsWord=FALSE) thenStrToFloat (CheckString) gt; 446 then
Check:=FALSE ;:= Введена координата виходить за межі діапазону. raquo ;; LogFileDisabled=FALSE then ( Спроба введення координати, виходить межі діапазону по Y );
end ;; (Check=TRUE) and (IsCoordinate=FALSE) and (IsWord=FALSE) thenStrToFloat (CheckString)=0 then
Check:=FALSE ;:= Введене значення не повинно бути дорівнює нулю. raquo ;;
NilCheck:=FALSE; LogFileDisabled=FALSE then
EventLog ( Спроба введення числа, рівного нулю );
end:=TRUE ;; (Check=TRUE) and (NilCheck=TRUE) then:=TRUE; LogFileDisabled=FALSE then
EventLog ( Введені коректні дані ) ;;;; LocalGUI (Parameter: Byte; Show: Boolean);// Процедура, що відповідає за відображення та приховування елементів інтерфейсу
begin. TempBtn. Visible:=FALSE ;. CADBtn. Visible:=FALSE; (Parameter=11) and (Show=TRUE) then. ChooseLbl. Visible:=TRUE ;. CircleBtn. Visible:=TRUE ;. EllipseBtn. Visible:=TRUE ;. ParallBtn. Visible:=TRUE ;. PolyBtn. Visible:=TRUE ;. RectBtn. Visible:=TRUE ;. TrapBtn. Visible:=TRUE ;. TriangleBtn. Visible:=TRUE ;; (Parameter=11) and (Show=FALSE) then. ChooseLbl. Visible:=FALSE ;. CircleBtn. Visible:=FALSE ;. EllipseBtn...
