function TEMISLogic.UpdateMenu(var OldFields: TEMISFields): Boolean; begin Result := False; try Result := FEMISS.UpdateMenu(OldFields); except on E : Exception do begin FEMISCommon.ErrorDlg(e.Message); Exit; end; end; end;
function TEMISLogic.UpdateMenu(var OldFields: TEMISFields): Boolean; var Fields: TEMISFields; begin Result := False; try Fields := OldFields; Result := FEMISS.UpdateMenu(Fields); FreeAndNil(Fields); except on E : Exception do begin FEMISCommon.ErrorDlg(e.Message); Exit; end; end; end;