Daten speichern und laden

Daten speichern und laden mit einer von TStorableObject abgeleiteten Klasse.

Vor dem Speichern der Daten wird überprüft ob die Eigenschaft ID einen Wert grösser 0 hat. Ist dies der Fall so wird der Datensatz per SQL Update aktualisiert, ist die ID 0 so wird der Datensatz per SQL Insert eingefügt.

Angenommen die von TStorableObject abgeleitete Klasse TCustomer enthält folgende Felder:

Name, Surname, ZIP, Place, Street

procedure TForm1.Load;

var cus : TCustomer;

begin  // Einen neuen Datensatz anlegen

  // Objekt anlegen

  cus:=TCustomer.Create(StorageProvider);

  // Eigenschaften füllen

  cus.Name:='Hahne';
  cus.Surname:='Hans-Jürgen';
  cus.ZIP:='99999';
  cus.Place:='New York';
  cus.Street:='Park Avenue 5';

  // Datensatz speichern  

  cus.Save;

  // Datensatz wieder laden über die erzeugte ID  

  cus.Load(cus.ID);
end;