Registriert seit: 18. Dez 2018
29 Beiträge
Delphi XE3 Professional
|
AW: Einfache Tabelle mit TClientDataSet
12. Jan 2019, 10:42
// Daten anhängen
ClientDataSet1.Append;
ClientDataSet1.FieldByName('media').AsString := 'media';
ClientDataSet1.FieldByName('author').AsString := 'author';
ClientDataSet1.FieldByName('title').AsString := 'title';
if ClientDataSet1.State in [dsEdit, dsInsert] then ClientDataSet1.Post;
// Datensatz ändern
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('media').AsString := 'media';
ClientDataSet1.FieldByName('author').AsString := 'author';
ClientDataSet1.FieldByName('title').AsString := 'title';
if ClientDataSet1.State in [dsEdit, dsInsert] then ClientDataSet1.Post;
// Wenn man Wert auf Geschwindigkeit legt, speichert man die Dateien im Binärformat als 'dfBinary':
ClientDataSet1.SaveToFile(ClientDataSet1.FileName, DBClient.dfBinary);
|