anchor.diff:  constructor TKMResourceDat.Create(aType: TResourceType);
   begin
     inherited Create;
  +
     fType := aType;
   end;
   
  
positive.code: end;
  
  
  function TKMResourceDat.GetTitle: string;
  begin
    if IsValid then
      Result := fTextLibrary[TX_RESOURCES_NAMES__27 + ResourceTypeToIndex[fType]]
  
negative.code: end;
  
  
  function TKMResourceDat.IsValid: Boolean;
  begin
    Result := fType in [WARE_MIN..WARE_MAX];
  end;
  