delphi ios grid bug

Posted 2020-07-08 lypzxy

BindSourceDB4.DataSet :=nil;

BindSourceDB4.DataSet :=FDMemTable1;

grid绑定后显示数据正常，第二次赋值BindSourceDB4.DataSet就报错了。RAD berlin 存在此问题。

 

 

error in ios

 

 

 

windows平台下正常，IOS下报错。

Data.Bind.DBScope.pas，edit file add to current project,compiler that\'s ok!

function TCustomBindSourceDB.CreateSubDataSource: TDataSource;
begin
  Result := TSubDataSource.Create(Self);
  Result.Name := \'SubDataSource\'; // Do not localize
  Result.SetSubComponent(True);
end;

procedure TCustomBindSourceDB.SetDataSet(const Value: TDataSet);
var
  LDataSource: TDataSource;
begin
  if Value <> DataSet then
  begin
    if Value <> nil then
    begin
      if (FDataSource = nil) or (not (csSubComponent in FDataSource.ComponentStyle)) then
      begin
        LDataSource := CreateSubDataSource;
        LDataSource.DataSet := Value;
        Self.DataSource := LDataSource;
      end;
    end
    else
      DataSource := nil;
    if FDataSource <> nil then
    begin
      FDataSource.DataSet := Value;
      SetLinks(FDataSource);
    end;
  end;
end;

 

DataSource := nil;

change to

 if DataSource<>nil then      
      DataSource.DisposeOf;
      DataSource := nil;

用query的EnableControls、DisableControls两个方法实现数据断开连接，依然会报错，所以还是用BindSourceDB4.DataSet=nil来断开。