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

t;;: = ListCour; CurrCour <> nil do: = nil;: = CurrCour.PointZak; currZak <> nil docurrZak.zak.number = DelZak.number thenprevZak = nil ifZakDelete then: = CurrCour.next;; prev = nil then: = DelZak.next; (DelZak);. next: = DelZak.next; (DelZak);;;;: = ListZak; curZakCour <> nil do (CurZakCour );: = curZakCour.next;;. Clear;;;

end.

unit

implementation.

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

{Private declarations}

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

{$ R *. dfm} TNewCourForm.FormCreate (Sender: TObject);: = false;; TNewCourForm.AddCourButtonClick (Sender: TObject);: string;, OtMinute, DoHour, DoMinute, Volume, Weight: integer;: = false;: = FIOCourEdit.Text; FIO ='' then ('Wrong FIO', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (OtHourCourEdit. Text); (OtHour <0) or (OtHour> 23) thenException.Create ('error with hour');; (' Îøèáêà â ïîëå × àñû äëÿ íà ÷ àëà âðåìåíè ðàáîòû ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (OtMinCourEdit.Text); (OtMinute <0) or (OtMinute> 59) thenException.Create ('error with minute');; (' Îøèáêà < span align = "justify"> â ïîëå < span align = "justify"> Ìèíóòû äëÿ < span align = "justify"> íà ÷ àëà âðåìåíè ðàáîòû ', Left + Width div 2-50, top + Height div 2 - 50);;;: = StrToInt (DoHourCourEdit.Text); (DoHour <0) or (DoHour> 23) thenException.Create ('error with Hour');; (' Îøèáêà ...