anchor.diff:    TFunkce = array[0.._HV_FUNC_MAX] of boolean;
     TPomStatus = (released = 0, pc = 1, progr = 2, error = 3);
   
  -  // trida hnaciho vozidla
  -  THVClass = (parni = 0, diesel = 1, motor = 2, elektro = 3);
  +  // typ hnaciho vozidla
  +  THVType = (parni = 0, diesel = 1, motor = 2, elektro = 3);
   
     // mod posilani dat hnaciho vozidla klientovi
     // full: s POM
  
positive.code:    majitel: string;
     oznaceni: string;
     poznamka: string;
     trida: THVClass;
     maxRychlost: Cardinal;
  
     POMtake: TList<THVPomCV>; // seznam POM pri prevzeti do automatu
  
negative.code:     func:TFunkce;
      pomCV:THVPOMCv;
  begin
   // format zapisu: nazev|majitel|oznaceni|poznamka|adresa|typ|souprava|stanovisteA|funkce|rychlost_stupne|
   //   rychlost_kmph|smer|or_id|{[{cv1take|cv1take-value}][{...}]...}|{[{cv1release|cv1release-value}][{...}]...}|
   //   {vyznam-F0;vyznam-F1;...}|typ_funkci|maximalni rychlost
  
   // souprava je bud cislo soupravy, nebo znak '-'
   Result := Self.Data.Nazev + '|' + Self.Data.Majitel + '|' + Self.Data.Oznaceni + '|{' + Self.Data.Poznamka + '}|' +
             IntToStr(Self.adresa) + '|' + IntToStr(Integer(Self.Data.typ)) + '|';
  
   if (Self.Stav.souprava > -1) then
    Result := Result + Soupravy.GetSprNameByIndex(Self.Stav.souprava) + '|'
  