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

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

// ñîçäàíèå ñïèñêà : = true; (NewZak);. name: =

end;.

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

{Private declarations}

{Public declarations};: TEditCourForm;: TCourier;: boolean;

{$ R *. dfm} TEditCourForm.FormCreate (Sender: TObject);: = false;; TEditCourForm.FormActivate (Sender: then ('Wrong FIO', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (EditOtHourCourEdit.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 (EditOtMinCourEdit.Text); (OtMinute <0) or (OtMinute> 59) thenException.Create ('error with minute');; (' Îøèáêà â ïîëå Ìèíóòû äëÿ íà ÷ àëà âðåìåíè ðàáîòû ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (EditDoHourCourEdit.Text); (DoHour <0 ) or (DoHour> 23) thenException.Create ('error with Hour');; (' Îøèáêà â ïîëå × àñû