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

nClick (Sender: TObject);, current, prev: Tzakaz;: integer;. ShowModal; (NewOrderUnit.ifAddButClick = true) then: = NewOrderUnit.newZak;. addToCour: = false; (temp); ListZak = nil then: = temp;. number: = 1;. next: = nil;: = 1;: = ListZak; current <> nil docurrent.dohour.hour> temp. dohour.hour thencurrent.dohour.hour = temp.dohour.hour thencurrent.dohour.min> = temp.dohour.min then;: = current;: = current.next; (i);; i = 1 then.next: = listZak;: = temp;. next: = current;. next: = temp;;;;;;;

{Додавання нового кур'єра} TMainWind.AddCourButtonClick (Sender: TObject);, CurrCour, PrevCour: TCourier;: integer;. ShowModal; (NewCourierUnit.ifAddButClick = true) then: = NewCourierUnit.NewCour; ListCour = nil then: = tempCour;. number: = 1;. next: = nil;: = 1;: = ListCour; currCour <> nil docurrCour.dotime.hour> tempCour.dotime.hour thencurrCour.dotime.hour = tempCour . dotime.hour thencurrCour.dotime.min> = tempCour.dotime.min then;: = currCour;: = currCour.next; (j);; j = 1 then.next: = ListCour;: = tempCour;. next: = currCour;. next: = tempCour;;;;;;;

{Збереження даних у файл} TMainWind.FormClose (Sender: TObject; var Action: TCloseAction);: textfile;: Tzakaz;: TCourier; (f1, 'zakaz.txt'); (f1) ;: = listZak; currZak <> nil

{Зчитування даних при відкритті} TMainWind.FormCreate (Sender: TObject);: textfile;, prevZak: Tzakaz;, prevCur: TCourier; (f1, 'zakaz.txt'); (f1); : = nil; not eof (f1) then: = currZak.next: = currZak;: = currZak;; (prevZak <> nil) then.next: = nil; (f1);;; (f1, 'courier.txt'); (f1);: = nil; not eof (f1) then: = currCur.next: = currCur;: = currCur;; (prevCur <> nil) then.next: = nil; (f1);: = listZak; (currZak <> nil) do (currZak);: = currZak.next;;;;;

{Виведення списку кур'єрів у форму}

procedure Min: '+ IntToStr (CurrCourList.ottime.min));. Items.Add (' Hour: '+ IntToStr (CurrCourList.dotime.hour) +'

// виведення списку замовлень в таблицю//

Procedure TMainWind.DisplayZakList;: TZakaz;: integer; i: = 0 to ListZakStringGrid.RowCount-1 do.Rows [i]. Clear; ListZakStringGrid do [0,0]: = ' ¹ '; [1,0]: =' Èìÿ '; [2,0]: =' àäðåñ '; [3,0]: =' âðåìÿ '; [4,0]: =' äîñòàâêè ñ : '; [5,0]: =' < span align = "justify"> äî : '; [7,0]: =' âåñ '; [8,0]: ='

Назад | сторінка 8 з 19 | Наступна сторінка