使用 DSharp 将对象绑定到 TcxGridTableView 时编辑非字符串属性时出错

Question

我有一个类对象

TContact = class(TObject)
  private
    FChild: TContact;
    FLastname: string;
    FFirstname: string;
    FAge: Integer;
    procedure SetFirstname(const Value: string);
    procedure SetLastname(const Value: string);
  public
    constructor Create(AFirstname: string = ''; ALastname: string = ''; AChild :
        TContact = nil; AAge : Integer = 10);
    property Child: TContact read FChild write FChild;
    property Firstname: string read FFirstname write SetFirstname;
    property Lastname: string read FLastname write SetLastname;
    property Age: Integer read FAge write FAge;
end;

我想在 TcxGridTableView 中显示一些对象。这是我在 TcxGridTableView 上显示一些对象的代码

var
  lFather: TContact;
  list: IList<TObject>;
  lJon: TContact;
  lMother: TContact;
begin
  list := TObservableCollection<TObject>.Create();

  lJon    := TContact.Create('Jericho', 'Doe', TContact.Create('No Child'),8);
  lFather := TContact.Create('John', 'Doe', lJon, 48);
  lMother :=  TContact.Create('Nancy', 'More', lJon, 45 );

  list.Add(lJon);
  list.Add(lFather);
  list.Add(lMother);

  prescontactpresenter.View.ItemsSource := list.AsList;
end;

一切运行良好。我可以修改 FirstName 和 Lastname 的值。但是，当我直接在年龄列上修改值 Age 属性时，出现以下错误：

但是当我将 Age 属性绑定到 Tedit 时，我可以修改它的值。有谁知道这是怎么回事？

Answer 1

您需要设置该列的 PropertiesClass（比如说 TcxSpinEditProperties）。这可以在设置 ItemsSource 后完成。否则，默认列属性是 TextEdit，它将值作为字符串发送，不会在绑定中自动转换为 Integer。

另一种方法是关闭presenter中的UseColumnDefinitions属性，自己创建所有列。

Answer 2

我找到了解决方法。我修改了单元 DSharp.DevExpress.PresenterDataSource

procedure TGridViewPresenterDataSource.SetValue(
  ARecordHandle: TcxDataRecordHandle; AItemHandle: TcxDataItemHandle;
  const AValue: Variant);
var
  LItemTemplate: IDataTemplate;
begin
  LItemTemplate := FPresenter.GetItemTemplate(ARecordHandle);
  // remarked bagus BP
  //LItemTemplate.SetText(ARecordHandle, Integer(AItemHandle), VarToStrDef(AValue, ''));
  LItemTemplate.SetValue(ARecordHandle, Integer(AItemHandle), TValue.FromVariant(AValue));
end;

我尝试了 String、Integer、Float 和 DateType 数据类型，结果正常