Delphi：類屬性的錯誤2008年不兼容的類型

Question

我定義了這個班

  TParamType = (ptDriverID, ptServer, ptHost, ptUser, ptPassword, ptPort, ptDatabase, ptOSAuth, ptPooled, ptUnicode);
  TDataType = (dtInteger, dtString, dtBoolean, dtYesNo, dtPassword);


  TParam = record
    Index: Byte;
    Typ: TParamType;
    RegKeyName: String;
    ConnName: String;
    DataType: TDataType;
    Caption: String;
    Value: String;
    Text: String;
    Default: String;
    Basic: Boolean;
    Enabled: Boolean;
    Mandatory: Boolean;
  end;

  TParams = class(TObject)
    private
      FParam: array of TParam;
      function GetParam(Index:Byte): TParam;
      procedure SetParam(Index:Byte;Value:String;Text:String);
    public
      constructor Create;
      destructor Destroy;
      property Param[Index: Byte]: TParam read GetParam write SetParam;
      procedure Enable(ServerType:TServerType);
  end;

我收到此錯誤：代碼行出現“ E2008不兼容類型”

property Param[Index: Byte]: TParam read GetParam write SetParam;

知道為什么我會為此屬性收到此錯誤嗎？

Answer 1

property Param是TParam 。 因此， SetParam需要將Index接收到數組中，並將TParam放入數組中。 相反，您的setter提供了索引和兩個字符串，兩個都不是TParam 。

合適的二傳手是

procedure SetParam(Index: Byte; const Value: TParam);