Delphi iOS Grid Bug

Bindsourcedb4.dataset: =nil;

Bindsourcedb4.dataset: =fdmemtable1;

After the grid is bound to display the data is normal, the second assignment Bindsourcedb4.dataset error. This problem exists with RAD Berlin.

Windows platform under normal, iOS error.

Data.Bind.DBScope.pas

functionTCustomBindSourceDB.CreateSubDataSource:TDataSource;beginResult:= Tsubdatasource.Create(self); Result.name:='Subdatasource';//Do not Localizeresult.setsubcomponent (True);End;procedureTcustombindsourcedb.setdataset (Constvalue:tdataset);varLdatasource:tdatasource;begin  ifValue <> DataSet Then  begin    ifValue <>Nil  Then    begin      if(Fdatasource =Nil)or( not(cssubcomponentinchFdatasource.componentstyle)) Then      beginLdatasource:=Createsubdatasource; Ldatasource.dataset:=Value; Self.datasource:=Ldatasource; End; End    ElseDataSource:=Nil; ifFdatasource <>Nil  Then    beginFdatasource.dataset:=Value;    Setlinks (Fdatasource); End; End;End;

DataSource: = nil;

Change to

If Datasource<>nil Then
datasource.disposeof;
DataSource: = nil;

Delphi iOS Grid Bug