anchor.diff:  end;
   
   
  -function TKMResourceDat.IsValid: boolean;
  +function TKMResourceDat.IsValid: Boolean;
   begin
     Result := fType in [WARE_MIN..WARE_MAX];
   end;
  
positive.code: constructor TKMResourceDat.Create(aType: TResourceType);
  begin
    inherited Create;
    fType := aType;
  end;
  
  
negative.code:     fType: TResourceType;
      fMarketPrice: Single;
      function GetGUIIcon: Word;
      function GetTitle: AnsiString;
    public
      constructor Create(aType: TResourceType);
      function IsValid: Boolean;
      property GUIIcon: Word read GetGUIIcon;
      property MarketPrice: Single read fMarketPrice;
      property Title: AnsiString read GetTitle;
    end;
  
    TKMResourceCollection = class
  