Hallo Matthias,
danke für die Antwort. Ich werde hier trotzdem nicht schlau.
FDMemTable1 ist das DataSet. FDMemTable1A (vielleicht etwas unglücklich bezeichnet) das TStringField im DataSet.
Mit folgender If-Verzweigung kann ich das Problem an- und abschalten. Ohne DataBinding funktioniert der Code, mit nicht.
Wie müßten meine 3 Zeilen (TDataSet.Open > TDataSet.Insert > TDataSetField.AsString:='X') korrigiert werden, damit der Code funktioniert? Vor dem Insert das DataBinding abzuhängen, kann ja sicher nicht die korrekte Lösung sein.
Ich werde es morgen von einem anderem Delphi Entwickler nochmal prüfen lassen, manchmal ist man ja wirklich betriebsblind.
Good Night,
Daniel.
--
Delphi-Quellcode:
type
TForm1 = class(TForm)
FDMemTable1: TFDMemTable;
FDMemTable1a: TStringField;
...
...
...
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('Ohne Fehler', System.UITypes.TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0)=mrYes then
BindSourceDB1.DataSource:=Nil;
FDMemTable1.Open;
FDMemTable1.Insert;
FDMemTable1a.AsString:='X'; // HIER FEHLERMELDUNG "NOT IN EDIT OR INSERT MODE", ABER NUR WENN BindSourceDB1.DataSource ZUGEWIESEN
BindSourceDB1.DataSet:=FDMemTable1;
end;