Update zeigt keine Funktion

[DeddyH]

Ich würde es einmal so versuchen (keine Gewähr, da direkt im Eingabeeditor eingetippt):

Delphi-Quellcode:

if changed then
  if Application.MessageBox('Wollen sie die Änderungen speichern?', 'Änderungen', MB_YesNoCancel or MB_IconQuestion) = IDYes then
    begin
      ZConnection1.Connected := true;
      TheStream := TMemoryStream.Create;
      try
        with ZQuery1 do
        begin
          SQL.Text := 'UPDATE Kunden SET Name = :nn, Vorname = :vn, Strasse = :str, PLZ = 92431, ort = :ort, Phone =:ph, Geburtsdatum = :geb, Memo = :mem  WHERE ID_KDNR = :kid';
          Params.ParamByName('kid').Asinteger := kid;
          Params.ParamByName('nn').AsString := cb_nachname.Items.Strings[cb_vorname.ItemIndex];
          Params.ParamByName('vn').AsString := cb_vorname.Items.Strings[cb_nachname.ItemIndex];
          Params.ParamByName('str').AsString := ed_strasse.Text;
          Params.ParamByName('ort').AsString := ed_wohnort.Text;
          Params.ParamByName('ph').AsString := ed_telefonr.Text;
          Params.ParamByName('geb').Value := ed_geburtsdatum.Text;
          me_bemerkung.Lines.SaveToStream(TheStream);
          Params.ParamByName('mem').LoadFromStream(TheStream, ftBlob);
          ExecSQL;
        end;
      finally
        TheStream.Free; 
      end;
    end;