letzte Änderung einer Pradox Tabelle

[shmia]

Zitat von freakTAB:

das Problem is dass mein Prog nicht weiss ob es eine echte Änderung war - es lädt die Daten am Anfang und speichert sie beim Schliessen des Dialogs wieder zurück.

Delphi-Quellcode:

begin
   Table1.Edit;
   DialogXYForm.ShowModal;  // dein Dialog anzeigen
   if Table1.Modified then  // Prüfen, ob Daten verändert
      Table1.Post           // ja: also speichern
   else
      Table1.Cancel;        // nein: Editmode verlassen
end;

Zusätzlich schreibst du die letzte Änderungszeit im Event BeforePost:

Delphi-Quellcode:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
   // Zeitpunkt der letzten Änderung eintragen
   DataSet.FieldValues['LastChange'] := Now;
end;