unit MikroType;{v0.50}

interface

type
  TMikroProgArrType = packed record
    Time  : real48;  { Cas provedeni ( -1 => ITabName ) }
    Colu  : real48;  { TeplotaKolony, 0 => beze zmeny   }
    Buff  : byte;    { Cislo pufru, 0 => beze zmeny     }
    Opti  : byte;    { 0 - nic, 1 - next, 2 - inject    }
                     { 3 - dataoff, 4 - start }
                     { 10 - zerro, 11 - A, 12 - B }
    Pars  : string[8];  { Znakovy parametr, je-li treba    }
  end;
                                 {ulatype}
  TMikroDate = string[8]; {d.m.y}
  
  TMikroSampleHead = record
    SFile : string[8];  { Nazev souboru s RGB a vysledkem   }
    SName : string[36]; { Nazev vzorku                      }
    SNote : string[36]; { Poznamka                          }
    SGetT : string[8];  { Zkratka obsluhy - analyzoval      }
    SGetD : TMikroDate;  { Datum odberu vzorku               }
    SProg : string[8];  { Nazev souboru s programem analyzy }
    SNumb : shortint;    { Cislo ampulky v podavaci vzorku   }
    STisk : boolean;    { TRUE - ihned tisknout vysledek    }
    SPriz : (ceka,bezi,hotovo,error); { Priznak stavu zpracovani }
  end;

implementation

end.
