Speichern in die Datenbank und nicht nur ins Grid

[Sharky]

Zitat von thomas29h2000:

... in der ich keinen Query habe.

Hai Thomas,

dann lasse das Query doch einfach weg *g*

Delphi-Quellcode:

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
  with (Sender as TDBEdit) do
  begin
    if Assigned(DataSource) then
    begin
      with DataSource.DataSet do
      begin
        if (State = dsEdit) then
        begin
          Post;
        end;
      end;
    end;
  end;
end;

Wenn es eine eigene Komponente ist dann natürlich Sender durch self ersetzen und das Typecasting (Sender as .. ) weglassen.