Einzelnen Beitrag anzeigen

Benutzerbild von newIndy
newIndy

Registriert seit: 18. Dez 2018
29 Beiträge
 
Delphi XE3 Professional
 
#2

AW: Einfache Tabelle mit TClientDataSet

  Alt 12. Jan 2019, 09: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);
  Mit Zitat antworten Zitat