Реферат Програмна реалізація кур'єрського замовлення

htCourEdit.Text); Weight <= 0 then ('Wrong weight', Left + Width div 2-50, top + Height div

end;.

unit EditZakUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, GlobalTypes, Grids; = class (TForm): TGroupBox;: TLabel;: TLabel;: TLabel; : TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TEdit;: TEdit; FormActivate (Sender: TObject); FormCreate (Sender: TObject); ChangeZakButtonClick (Sender: TObject);

{Private declarations}

{Public declarations};: TChangeZakForm;: boolean;

{$ R *. dfm} TChangeZakForm.FormCreate (Sender: TObject);: = false;; TChangeZakForm.FormActivate (Sender: then ('Wrong name', Left + Width div 2-50, top + Height div 2-50);;;: = AdrChangeZakEdit.Text; adress ='' then ('Wrong adress', Left + Width div 2-50 , top + Height div 2-50);;;: = StrToInt (ChangeOtHourEdit.Text); (OtHour <0) or (OtHour> 23) thenException.Create ('error with hour');; (' Îøèáêà â ïîëå × àñû äëÿ íà ÷ àëà < span align = "justify"> âðåìåíè äîñòàâêè ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (ChangeOtMinuteEdit.Text); (OtMinute <0) or (OtMinute> 59) thenException.Create ('error with minute');; (' Îøèáêà â ïîëå Ìèíóòû äëÿ íà ÷ àëà âðåìåíè äîñòàâêè ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (ChangeDoHourEdit.Text); (DoHour <0) or (DoHour> 23) thenException.Create (' error with Hour ');; (' Îøèáêà â < span align = "justify"> ïîëå × àñû äëÿ