Can I do the following (procedure inside a procedure for a MessageDlg call)?

[paul.coshott]

procedure TfStaffMnt.btnDeleteClick(Sender: TObject);

  procedure mbDeleteStaff(Sender: TComponent; Res: Integer);
  begin
    //code here to delete the staff record
    qStaffDelete.ParamByName('pStaffId').AsInteger := qStaff.FieldByName('pStaffId').AsInteger
    qStaffDelete.ExecSQL;
  end;

begin
  MessageDlg('Delete the selected staff member?', mtConfirmation, mbYesNo, mbDeleteStaff);
end;

I find this code much neater and easier to maintain. Any way this can be done?

Cheers,
Paul

[paul.coshott]

Anyone have any idea regarding this question?

[Pep]

Hello Paul,

In Delphi 10.2, the Callback  procedure "mbDeleteStaff" does'nt compile if is defined inside another procedure / function. 

You can use an anonymous procedure:

 

  MessageDlg('Delete the selected staff member?', mtConfirmation, mbYesNo,
    procedure(Sender: TComponent; Res: Integer)
    begin
      // code here to delete the staff record
      if Res = mrOk then
      begin
        qStaffDelete.ParamByName('pStaffId').AsInteger := qStaff.FieldByName('pStaffId').AsInteger
        qStaffDelete.ExecSQL;
      end;
    end
  );

 

 

[paul.coshott]

Hi Pep,

Thanks, that'll work nicely!

Cheers,
Paul