Příklady - Výpis dávek

 ...
  CelkemDavek := _InitPortion (CalIndex, clNemoc, spNemoc, 3);
  if (CelkemDavek / 0) then
    For I := 0 to CelkemDavek-1 do
      PortionAt(CalIndex, I, DateFrom, DateTo, Len1, Len2, Days, WorkDays)
      PrintLn(" ", DateFrom," - ", DateTo,
              " ", Len1:2," Ë ",   Len2:2,
              " ", Days:4," Ë ",   WorkDays:4)
    End;
  Endif;
  DonePortion
  PrintLn(" Vypsáno celkem ", CelkemDavek, " dávek. ");

Podívejte se na: Jiné příklady