Realizar un Update con MDO

[vtdeleon]

Saludos

Un pequeño ahorro en codigo

Código Delphi [-]
procedure TfrmUsers.btnGuardarClick(Sender: TObject);
var
    sContra : String;
    i: integer;
begin
    btnGuardar.SetFocus;
 
    if VerificaDatos then
      begin
        with frmDatos.MDOUsers    do
          begin
            
            sContra := frmDatos.Encripta(edClave.Text);
            if cbCategoria.text = 'Instalador' then
              i := 1
            else if cbCategoria.text = 'Supervisor' then
              i := 2
            else
              i := 3;
 
            if sModo = 'Insertar' then
              begin
                Insert;
                //Nos ahorramos todas esas lineas repetidas
              end
            else
              begin
                Edit;
                FieldByName('Codigo').Value := iClave; //Clave Primaria
              end;
              FieldByName('Login').Value := Trim(edLogin.text);
              FieldByName('Clave').Value := sContra;
              FieldByName('Categoria').Value := i;
              FieldByName('Nombre').Value := Trim( edNombre.text);
              FieldByName('Paterno').Value := Trim(edPaterno.text);
              FieldByName('Materno').Value := Trim(edMaterno.text);
              FieldByName('Domicilio').Value := Trim(edDomicilio.text);
              FieldByName('Colonia').Value := Trim(edColonia.text);
              FieldByName('CP').Value := Trim(edCP.text);
              FieldByName('Ciudad').Value := Trim(edCiudad.text);
              FieldByName('Estado').Value := Trim(edEstado.text);
              FieldByName('Telefono').Value := Trim(edTelefono.text);
              Post;
            if sModo = 'Insertar' then
              begin
                iClave := sContra;
                lstUsuarios.Items.Add(edLogin.Text)
              end

          end;
      end;
      btnCancelarClick(Sender);
end;