ustify"> îáúåì ';;: = ListZak; currZak <> nil doListZakStringGrid
{Присвоєння номерів кур'єрам} TMainWind.Number;: Tcourier;: integer;: = 1;: = ListCour; CurrCourList <> nil do.number: = i;: = CurrCourList.next; ( i);;;
{Присвоєння номерів замовленнями} TMainWind.NumberZak;: TZakaz;: integer;: = 1;: = ListZak; CurrZakList <> nil do.number: = i;: = CurrZakList.next; ( i);;; TMainWind.FIOCourListBoxClick (Sender: TObject);: TCurZakaz;: Tcourier; FIOCourListBox.ItemIndex> = 0 '+ CurZak.zak.adress +' Г± : '+ IntToStr (curZak.zak.othour.hour) +'. '+ IntToStr (curZak . zak.othour.min) + ' äî :' + IntToStr (curZak.zak.dohour.hour) + '. '+ IntToStr (curZak.zak.dohour.min) +' ГўГҐГ± : '+ IntToStr (curZak.zak.ves) + ' îáúåì :' + IntToStr (curZak.zak.volume));: = curZak.next;;;;
{знаходження запису виділеного кур'єра} TMainWind.GetCourierByIndex (index: integer; var prevCour: Tcourier): TCourier;, curCour: Tcourier;: integer;: = listCour;: = 0; (i nil) do: = CurCour;: = curCour.next; (i);;: = curCour;; TMainWind.OtTimeCourListBoxClick (Sender: TObject);: TCurZakaz;: Tcourier; OtTimeCourListBox.ItemIndex> = 0 '+ CurZak.zak.adress +' Г± : '+ IntToStr (curZak.zak.othour.hour) +'. '+ IntToStr (curZak . zak.othour.min) + ' äî :' + IntToStr (curZak.zak.dohour.hour) + '. '+ IntToStr (curZak.zak.dohour.min) +' ГўГҐГ± : '+ IntToStr (curZak.zak.ves) + ' îáúåì = 0 '+ CurZak.zak.adress +' Г± : '+ IntToStr (curZak.zak.othour.hour) +'. ' + IntToStr (curZak.zak.othour.min) + ' äî :' + IntToStr (curZak.zak.dohour.hour ) + '.' + IntToStr (curZak.zak.dohour.min) + ' ГўГҐГ± :' + IntToStr (curZak. zak.ves) + ' îáúåì = 0 '+ CurZak.zak.adress +' Г± : '+ IntToStr (curZak.zak.othour.hour) +'. ' + IntToStr (curZak.zak.othour.min) + ' äî
