[FMX-iOS] dynamische Livebindings funktionieren teilweise

[Devil1925]

Moin,
ich steh mal wieder vor ner Wand.
Ich erzeuge auf meinem Formular dynamisch Komponenten, welche ich dann ebenfalls dynamisch mit meiner Datenquery über Livebindings verbinde. Das Funktioniert auch erstmal alles wunderbar. Die komponenten werden erzeugt und die Daten über die Livebindings eingetragen und entsprechend angezeigt. Möchte ich die Daten jetzt bearbeiten (z.B. in einem Edit Feld), funktioniert das ganze auf Android einwandfrei und die geänderten Daten werden auch zurück in die Datenbank geschrieben. Auf iOS hingegen werden die Daten nicht abgespeichert, und bei z.B. einem TDateEdit stürzt die App beim eingeben eines geänderten Datums ab.

Hier die Prozedur zum Anlegen der LiveBindings:

Delphi-Quellcode:

procedure TForm1.LinkToControl(Control: TControl; DataSet: TUniQuery; FieldName: string);
var
  DataName: string;
  BindSourceDB: TBindSourceDB;
  BindingsList: TBindingsList;
  LinkListControl: TLinkListControlToField;
  LinkControl: TLinkControlToField;
begin
  DataName := DataSet.Name;
  if (DataName = '') and Assigned(DataSet.DataSource) then
    DataName := DataSet.DataSource.Name;

  if Assigned(Control.FindComponent(DataName + '_BindSource')) then
    raise Exception.CreateFmt('LinkToControl: %s.%s ist bereits an %s (%s) gebunden.', [DataName, FieldName, Control.Name, Control.ClassName]);

  BindSourceDB := TBindSourceDB.Create(Control);
  BindSourceDB.Name := DataName + '_BindSource';
  BindSourceDB.DataSet := DataSet;
  BindSourceDB.DataSet.Active := True;
  BindSourceDB.DataSource.Enabled := True; 

  BindingsList := TBindingsList.Create(BindSourceDB);
  BindingsList.Name := DataName + '_BindingsList';

  if Control is TCombobox then
  Begin
    LinkListControl := TLinkListControlToField.Create(BindingsList);
    LinkListControl.Name := DataName + '_LinkListControl';
    LinkListControl.Control := Control;
    LinkListControl.DataSource := BindSourceDB;
    LinkListControl.FieldName := FieldName;
    LinkListControl.Active := True;
  end
  else
  Begin
    LinkControl := TLinkControlToField.Create(BindingsList);
    LinkControl.Name := DataName + '_LinkListControl';
    LinkControl.Control := Control;
    LinkControl.DataSource := BindSourceDB;
    LinkControl.FieldName := FieldName;
    LinkControl.Active := True;
  End;
end;

Hat da vielleicht jemand eine Idee was ich Falsch mache? oder ist das ein generelles Problem von FMX mit iOS?