Ошибка 'Error privileged instruction' при попытке вызвать процедуру

@Ллирик · Регистрация: 27.11.2016

Author24 — интернет-сервис помощи студентам

При попытке вызвать процедуру другой формы из другого юнита передаваемую как параметр, получаю

error privileged instruction

Delphi

unit Unit1;
.......................
procedure THeaderFooterForm.Button1Click(Sender: TObject);
begin
  ShowMessageModal(Self, changeqwesttext, @procedure
        begin
    changeqwest;
  TabControl1.TabIndex := 1;
        end);
end;

Delphi

unit MessageModal;
......................
  Defproc = procedure;
......................
procedure ShowMessageModal(Self: TForm; const AMessage: string;
  ADefProc: Defproc);
var
  locMessageForm: TMessageForm;
begin
  locMessageForm := TMessageForm.Create(Self);
...............................
  locMessageForm.showModal(    procedure(Result: TModalResult)
    begin
      if Result = mrOk then
      begin
      ADefProc;  //ВЫЛЕТАЕТ
      locMessageForm.CloseModal;
      end;
      end);
end;

. Вызовов ShowMessageModal достаточно много и мне бы не хотелось описывать каждую передаваемую процедуру отдельно. Подскажите, пожалуйста, в чём моя ошибка?

@krapotkin · 09.02.2017, 08:57

предположу что
defproc = reference to procedure

и собачка выглядит лишней

@Ллирик · 09.02.2017, 17:01 **[ТС]**

Сообщение от krapotkin

предположу что
defproc = reference to procedure
и собачка выглядит лишней

Тогда компилятор выдаёт

[dcc32 Error] Unit1.pas(1103): E2010 Incompatible types: 'Defproc' and 'Procedure'

@~~Stertor~~ · 09.02.2017, 17:56

Сообщение от Ллирик

Код

unit Unit1;
.......................
procedure THeaderFooterForm.Button1Click(Sender: TObject);
begin
  ShowMessageModal(Self, changeqwesttext, @procedure
        begin
    changeqwest;
  TabControl1.TabIndex := 1;
        end);
end;

Вы передаёте указатель на анонимную функцию - оттого и вылетает. Жаль, что подобное **рьмо вообще компилируется. Эмбаркадеровцам жирный МИНУС.

@Ллирик · 09.02.2017, 19:54 **[ТС]**

Сообщение от Stertor

Вы передаёте указатель на анонимную функцию - оттого и вылетает. Жаль, что подобное **рьмо вообще компилируется. Эмбаркадеровцам жирный МИНУС.

И что Вы предлагаете сделать?

@krapotkin · 09.02.2017, 19:56

а в чем проблема?
ява вон вся на анонимках стоит, живут же. каша в кода - это да, но иногда...
Ллирик,
посмотрите, как объявлен метод ShowModal и сделайте так же
вам же это нужно?

@~~Stertor~~ · 09.02.2017, 21:33

Сообщение от Ллирик

И что Вы предлагаете сделать?

Устроить деанон.

Добавлено через 1 час 16 минут
procedure ShowMessageModal(Self: TForm; const AMessage: string;
ADefProc: Defproc);
var
locMessageForm: TMessageForm;
begin
locMessageForm := TMessageForm.Create(Self);

банальное переполнение стека.

@Ллирик · 09.02.2017, 21:51 **[ТС]**

Сообщение от Stertor

Добавлено через 1 час 16 минут
procedure ShowMessageModal(Self: TForm; const AMessage: string;
ADefProc: Defproc);
var
locMessageForm: TMessageForm;
begin
locMessageForm := TMessageForm.Create(Self);
банальное переполнение стека.

Вы это вообще о чём?))

@~~Stertor~~ · 09.02.2017, 22:02

О том, что синтаксический сахар Self используется как аргумент.

Код

locMessageForm := TMessageForm.Create(Self);

В этом месте- неоднозначность, т.к. нельзя точно понять, подразумевается ли аргумент Self, или пространство имен Self.

Это мой последний пост в этой темке, думаю, что сообщил достаточно. Я сваливаю.

@Ллирик · 09.02.2017, 22:20 **[ТС]**

Сообщение от krapotkin

посмотрите, как объявлен метод ShowModal и сделайте так же
вам же это нужно?

Delphi

procedure TCommonCustomForm.ShowModal(const ResultProc: TProc<TModalResult>);
begin
  FResultProc := ResultProc;
  Show;
end;

FResultProc объявлена как внутренняя процедура TCommonCustomForm, а мне бы хотелось чтоб ShowMessageModal была внешней как ShowMessage, чтоб её можно было использовать и в последующий программах без лишней возни

Добавлено через 14 минут

Сообщение от Stertor

О том, что синтаксический сахар Self используется как аргумент.
Код
locMessageForm := TMessageForm.Create(Self);
В этом месте- неоднозначность, т.к. нельзя точно понять, подразумевается ли аргумент Self, или пространство имен Self.

Естественно подразумевается аргумент Self, ведь процедура внешняя и у неё нет пространства имен

@krapotkin · 09.02.2017, 23:04

не надо использовать Self

все просто. я же говорю, смотрите на ShowModal

Кликните здесь для просмотра всего текста

Delphi

unit Unit2;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls;
 
type
  TForm2 = class(TForm)
    b1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
procedure ShowMess(OkProc:TProc);
 
implementation
 
{$R *.fmx}
procedure ShowMess(OkProc:TProc);
begin
  form2:=TForm2.Create(nil);
    Form2.ShowModal(
      procedure (R:TModalResult)
      begin
        if r=mrOk then
          OkProc();
      end);
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=TCloseAction.caFree;
end;
 
end.

и вызов

Delphi

procedure TForm1.b1Click(Sender: TObject);
begin
  ShowMess(procedure begin
    ShowMessage('All works');
  end );
end;

Добавлено через 38 секунд
на Form2 у кнопки установлен modalResult = mrOk

@Ллирик · 10.02.2017, 04:31 **[ТС]**

Сообщение от krapotkin

не надо использовать Self

Self я там использую для других целей)

Добавлено через 20 минут
krapotkin, спасибо Вам большое! Разобрался

@Ллирик 0 / 0 / 1 Регистрация: 27.11.2016 Сообщений: 99
	10.02.2017, 04:31 [ТС]	12
	Сообщение от krapotkin не надо использовать Self Self я там использую для других целей) Добавлено через 20 минут krapotkin, спасибо Вам большое! Разобрался 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	09.02.2017, 08:57	2
	предположу что defproc = reference to procedure и собачка выглядит лишней 0

@Ллирик 0 / 0 / 1 Регистрация: 27.11.2016 Сообщений: 99
	09.02.2017, 17:01 [ТС]	3
	Сообщение от krapotkin предположу что defproc = reference to procedure и собачка выглядит лишней Тогда компилятор выдаёт [dcc32 Error] Unit1.pas(1103): E2010 Incompatible types: 'Defproc' and 'Procedure' 0

@~~Stertor~~ Заблокирован
	09.02.2017, 17:56	4
	Сообщение от Ллирик Код unit Unit1; ....................... procedure THeaderFooterForm.Button1Click(Sender: TObject); begin ShowMessageModal(Self, changeqwesttext, @procedure begin changeqwest; TabControl1.TabIndex := 1; end); end; Вы передаёте указатель на анонимную функцию - оттого и вылетает. Жаль, что подобное рьмо вообще компилируется. Эмбаркадеровцам жирный МИНУС**. 0

@Ллирик 0 / 0 / 1 Регистрация: 27.11.2016 Сообщений: 99
	09.02.2017, 19:54 [ТС]	5
	Сообщение от Stertor Вы передаёте указатель на анонимную функцию - оттого и вылетает. Жаль, что подобное **рьмо вообще компилируется. Эмбаркадеровцам жирный МИНУС. И что Вы предлагаете сделать? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	09.02.2017, 19:56	6
	а в чем проблема? ява вон вся на анонимках стоит, живут же. каша в кода - это да, но иногда... Ллирик, посмотрите, как объявлен метод ShowModal и сделайте так же вам же это нужно? 0

@~~Stertor~~ Заблокирован
	09.02.2017, 21:33	7
	Сообщение от Ллирик И что Вы предлагаете сделать? Устроить деанон. Добавлено через 1 час 16 минут procedure ShowMessageModal(Self: TForm; const AMessage: string; ADefProc: Defproc); var locMessageForm: TMessageForm; begin locMessageForm := TMessageForm.Create(Self); банальное переполнение стека. 0

@Ллирик 0 / 0 / 1 Регистрация: 27.11.2016 Сообщений: 99
	09.02.2017, 21:51 [ТС]	8
	Сообщение от Stertor Добавлено через 1 час 16 минут procedure ShowMessageModal(Self: TForm; const AMessage: string; ADefProc: Defproc); var locMessageForm: TMessageForm; begin locMessageForm := TMessageForm.Create(Self); банальное переполнение стека. Вы это вообще о чём?)) 0

@~~Stertor~~ Заблокирован
	09.02.2017, 22:02	9
	О том, что синтаксический сахар Self используется как аргумент. Код locMessageForm := TMessageForm.Create(Self); В этом месте- неоднозначность, т.к. нельзя точно понять, подразумевается ли аргумент Self, или пространство имен Self. Это мой последний пост в этой темке, думаю, что сообщил достаточно. Я сваливаю. 0