1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

bis hierhin ist alles klar....

#DataModule1.ClientDataSet1.Active := True;
DataModule1.ClientDataSet1.Append;

#Hier beginnt der Fehler


tblAdressen.FieldByName('Datum').AsString := Datum;
tblAdressen.Post;
ClientDataSet1.Active := False;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

DataModule1.ClientDataSet1.Active := True;
DataModule1.tblAdressen.Append;
DataModule1.tblAdressen.FieldByName('Datum').AsString := Datum;
DataModule1.tblAdressen.Post;
{bzw. wenn du Table1 nicht auf dem Datamodul hast:
 tblAdressen.Append;
 tblAdressen.FieldByName('Datum').AsString := Datum;
 tblAdressen.Post; }
ClientDataSet1.Active := False;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

  Datum := DateToStr(Now);
  Zeit := TimeToStr(Now);
  DataModule1.ClientDataSet1.Active := True;
  DataModule1.ClientDataSet1.Append; // Neuen Datensatz an die Tabelle anhängen
  DataModule1.ClientDataSet1Datum.AsString := Datum;
  DataModule1.ClientDataSet1Zeit.AsString :=  Zeit;
  DataModule1.ClientDataSet1.Post;
  DataModule1.ClientDataSet1.SaveToFile('Stat5_4.xml');
  DataModule1.ClientDataSet1.Active := False;