anchor.diff:   json['maxRychlost'] := Self.Data.maxRychlost;
    if (Self.Data.Poznamka <> '') then json['poznamka'] := Self.Data.Poznamka;
   
  - case (Self.Data.Trida) of
  -  THVClass.parni   : json['trida'] := 'parni';
  -  THVClass.diesel  : json['trida'] := 'diesel';
  -  THVClass.motor   : json['trida'] := 'motor';
  -  THVClass.elektro : json['trida'] := 'elektro';
  + case (Self.Data.typ) of
  +  THVType.parni   : json['typ'] := 'parni';
  +  THVType.diesel  : json['typ'] := 'diesel';
  +  THVType.motor   : json['typ'] := 'motor';
  +  THVType.elektro : json['typ'] := 'elektro';
    end;
   
    lastFunction := _HV_FUNC_MAX;
  
positive.code:     func:TFunkce;
      pomCV:THVPOMCv;
  begin
   // format zapisu: nazev|majitel|oznaceni|poznamka|adresa|trida|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.Trida)) + '|';
  
   if (Self.Stav.souprava > -1) then
    Result := Result + Soupravy.GetSprNameByIndex(Self.Stav.souprava) + '|'
  
negative.code:    if ((addr < 0) or (addr > 9999)) then raise Exception.Create('Adresa loko mimo rozsah');
     Self.fadresa := addr;
  
     Self.Data.Nazev := ini.ReadString(section, 'nazev', section);
     Self.Data.Majitel := ini.ReadString(section, 'majitel', '');
     Self.Data.Oznaceni := ini.ReadString(section, 'oznaceni', section);
     Self.Data.Poznamka := ini.ReadString(section, 'poznamka', '');
     Self.Data.typ := THVType(ini.ReadInteger(section, 'trida', 0));
     Self.Data.maxRychlost := ini.ReadInteger(section, 'max_rychlost', _DEFAUT_MAX_SPEED);
  
     // POM pri prebirani : (cv,data)(cv,data)(...)...
  