reference to procedure / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / reference to procedure

12 сообщений из 12, страница 1 из 1

reference to procedure

#39578315

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

Всех с Наступающим, всех благ :)

Помогите разобраться с reference to procedure. Не доходит до меня.
Нужно реализовать что-то вроде CallBack.
Delphi Berlin, мультиформенное приложение.
На Андроиде нет модальных форм поэтому нужно передать процедуру как параметр из главной формы в форму выбора. Но главных форм несколько, а форма выбора одна, т.е. нет нужды плодить несколько форм выбора.
Пользователь из главной формы вызывает форму выбора, что-то там вводит или выбирает и нужно выполнить процедуру и передать в главную форму данные, т.е. то, что было введено/выбрано. Другими словами, нужно получить то, что ввел пользователь.
Не доходит до меня, где правильно объявлять и как.

В форме выбора объявляю

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.

type
  TProcSelectRef = reference to procedure(const sText: string);

  TfmSel = class(TForm)
    btnOK: TButton;
    btnCacel: TButton;
    Edit1: TEdit;
    procedure btnCacelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure proc(ProcSelectRef: TProcSelectRef);
  end;

var
  fmSel: TfmSel;

implementation
...
...

procedure TfmSel.proc(ProcSelectRef: TProcSelectRef);
begin
//пользователь ввел что-то в Edit1 и это нужно вернуть в главную форму
  ProcSelectRef(Edit1.Text);
end;

procedure TfmSel.btnOKClick(Sender: TObject);
begin
  proc(что здесь?);
end;

procedure TfmSel.btnCacelClick(Sender: TObject);
begin
  close;
end;

у главной формы:

Код: pascal

1.
2.
3.
4.
5.

procedure TForm1.btnSelClick(Sender: TObject);
begin
  fmSel := TfmSel.Create(self);
  fmSel.Show;
end;

что дальше?

...

Рейтинг:

0 / 0

30.12.2017, 22:38

| Ответить | Цитировать | Написать

reference to procedure

#39578319

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

в главной форме

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

  public
    { Public declarations }
    procMain: TProcSelectRef;
...
implementation
...


procedure TForm1.btnSelClick(Sender: TObject);
begin
  fmSel := TfmSel.Create(self);

  procMain := procedure(s: string)
  begin
    Label1.Text := s;
  end; // ошибка здесь

  fmSel.proc(procMain);
  fmSel.Show;
end;

но при компиляции получаю ошибку
[dcc32 Error] Unit1.pas(50): E2010 Incompatible types: 'TProcSelectRef' and 'Procedure'

...

Рейтинг:

0 / 0

30.12.2017, 22:51

| Ответить | Цитировать | Написать

reference to procedure

#39578320

X-Cite

Участник

Откуда: Минск

Сообщения: 1 886

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.

procedure TForm1.Button1Click(Sender: TObject);
var
  F2: TForm2;
begin
  F2 := TForm2.Create(
    Self,
    procedure(aValue: string)
    begin
      Label1.Caption := aValue;
    end
  );
  F2.ShowModal();
  F2.Free();
end;

type
  TCallback = reference to procedure(aValue: string);

  TForm2 = class(TForm)
    btnOK: TButton;
    Edit1: TEdit;
    procedure btnOKClick(Sender: TObject);
  private
    FCallback: TCallback;
  public
    constructor Create(aOwner: TComponent; aCallback: TCallback); reintroduce;
  end;

procedure TForm2.btnOKClick(Sender: TObject);
begin
  FCallback(Edit1.Text);
  Close;
end;

constructor TForm2.Create(aOwner: TComponent; aCallback: TCallback);
begin
  inherited Create(aOwner);
  FCallback := aCallback;
end;

...

Рейтинг:

0 / 0

30.12.2017, 23:03

| Ответить | Цитировать | Написать

reference to procedure

#39578321

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

Код: pascal

F2.ShowModal();

так ShowModal нельзя

...

Рейтинг:

0 / 0

30.12.2017, 23:03

| Ответить | Цитировать | Написать

reference to procedure

#39578322

X-Cite

Участник

Откуда: Минск

Сообщения: 1 886

Рейтинг: 0 / 0

X11

Код: pascal

F2.ShowModal();

так ShowModal нельзя
замените на Show... вопрос же был по использованию замыканий?

...

Рейтинг:

0 / 0

30.12.2017, 23:05

| Ответить | Цитировать | Написать

reference to procedure

#39578323

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

Так, а если без конструктора?
Сложнее будет?

...

Рейтинг:

0 / 0

30.12.2017, 23:09

| Ответить | Цитировать | Написать

reference to procedure

#39578324

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

сделал по Вашему примеру, всё равно та же ошибка:

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

...

Рейтинг:

0 / 0

30.12.2017, 23:13

| Ответить | Цитировать | Написать

reference to procedure

#39578325

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

в главной форме

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

procedure TForm1.btnSelClick(Sender: TObject);
begin
  fmSel := TfmSel.Create(self,

   procedure(aValue: string)
    begin
      Label1.Text := aValue;
    end
  );

  fmSel.Show;
end;

в форме выбора:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.

unit Unit3;

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, FMX.Edit;

type
  TProcSelectRef = reference to procedure(const sText: string);

  TfmSel = class(TForm)
    btnOK: TButton;
    btnCacel: TButton;
    Edit1: TEdit;
    procedure btnCacelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    fProcSelectRef: TProcSelectRef;
  public
    { Public declarations }

    constructor Create(aOwner: TComponent; AProcSelectRef: TProcSelectRef); reintroduce;
  end;

var
  fmSel: TfmSel;

implementation

{$R *.fmx}

uses Unit1;

procedure TfmSel.btnOKClick(Sender: TObject);
begin
  fProcSelectRef(Edit1.Text);
  Close;
end;

constructor TfmSel.Create(aOwner: TComponent; AProcSelectRef: TProcSelectRef);
begin
  inherited Create(aOwner);
  fProcSelectRef := AProcSelectRef;
end;

procedure TfmSel.btnCacelClick(Sender: TObject);
begin
  close;
end;


end.

...

Рейтинг:

0 / 0

30.12.2017, 23:15

| Ответить | Цитировать | Написать

reference to procedure

#39578327

X-Cite

Участник

Откуда: Минск

Сообщения: 1 886

Рейтинг: 0 / 0

X11,

У вас сигнатуры не совпадают

Код: pascal

1.
2.
3.
4.
5.

TProcSelectRef = reference to procedure(const sText: string);
и
fmSel := TfmSel.Create(self,

   procedure(aValue: string)

надо или там и там const или без

...

Рейтинг:

0 / 0

30.12.2017, 23:36

| Ответить | Цитировать | Написать

reference to procedure

#39578328

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

блиииин, вот спасибо!!!!!!!!!!!!!!!
спасибище

...

Рейтинг:

0 / 0

30.12.2017, 23:37

| Ответить | Цитировать | Написать

reference to procedure

#39578330

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

Если без конструктора, то нужно добавлять проперть в форму выбора, правильно?

...

Рейтинг:

0 / 0

30.12.2017, 23:59

| Ответить | Цитировать | Написать

reference to procedure

#39578332

X11

Участник

Откуда: Kharkiv, Ukraine

Сообщения: 15 182

Рейтинг: 0 / 0

да, всё получилось

Код: pascal

property ProcSelectRegionRef: TProcSelectRegionRef read fProcSelectRegionRef write fProcSelectRegionRef;

в главной форме

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.

 
fmTree := TfmTree.Create(self);
fmTree.ProcSelectRegionRef := procedure(AidRegion: integer; const sFullRegion: string)
    begin
      idRegion := AidRegion;
      lbSelRegion.Text := sFullRegion
    end;

  fmTree.Show;

...

Рейтинг:

0 / 0

31.12.2017, 00:07

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / reference to procedure

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39578328&tid=2041387]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	2ms
check topic access:	2ms
track hit:	181ms
get topic data:	9ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	248ms

total:	522ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы