class - Delphi : Error 2008 Incompatible types for a class property

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);