ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Захват переменной в анонимной процедуре
25 сообщений из 30, страница 1 из 2
  1  все
Захват переменной в анонимной процедуре
    #39823216
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Коллеги, как вернуть значение переменной.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure CallActionFrm(var id: Integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
begin
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          id := 100;
        end;
      end
      );
  end;
end;



Ошибка - E2555 Cannot capture symbol 'id'

Как обойти?
...
Рейтинг: 0 / 0
06.06.2019, 08:46
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823245
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Присвоить ее локальной. Захватить локальную. Потом по выходу локальную опять присвоить в var параметр.
var и иногда const не захватываются.
...
Рейтинг: 0 / 0
06.06.2019, 09:35
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823251
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-Cite, делаю, не получается:

Код: 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.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
begin
  tmp := I;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          tmp := 100;
        end;
      end
      );
    I := tmp;
  end;
end;

...

procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject);
var
  id: Integer;
begin
  id := 1;
  CallActionFrm2(id);
  edtInn.Text := IntToStr(id); // получаю id = 1, а не 100!
end;
...
Рейтинг: 0 / 0
06.06.2019, 09:43
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823269
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
А вы сделайте
Код: pascal
1.
2.
3.
4.
if AResult = mrOk then
  tmp := 100
else
  tmp := 200;


Вангую что вернется 200
...
Рейтинг: 0 / 0
06.06.2019, 10:09
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823303
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-CiteА вы сделайте
Код: pascal
1.
2.
3.
4.
if AResult = mrOk then
  tmp := 100
else
  tmp := 200;


Вангую что вернется 200

Код: sql
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.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
begin
  tmp := I;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          tmp := 100;
        end
        else
          tmp := 200;
      end
      );
    I := tmp;
  end;
end;

...

procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject);
var
  id: Integer;
begin
  id := 1;
  CallActionFrm2(id);
  edtInn.Text := IntToStr(id); // Возвращает 1!
end;
...
Рейтинг: 0 / 0
06.06.2019, 10:54
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823307
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
wsnet,

А так не сработает?
Код: pascal
1.
PInteger(@id)^ := 100;
...
Рейтинг: 0 / 0
06.06.2019, 11:08
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823372
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Kazantsev Alexeywsnet,

А так не сработает?
Код: pascal
1.
PInteger(@id)^ := 100;



Тоже самое

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
  PInteger: ^Integer;
begin
  PInteger := @I;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          PInteger^ := 100; //id = 1!
          ShowMessage('test');
        end
        else
          PInteger^ := 200;
      end
      );
  end;
end;
...
Рейтинг: 0 / 0
06.06.2019, 12:30
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823388
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
wsnet,

А отладчик на строке "I := tmp;" какое значение tmp показывает?
...
Рейтинг: 0 / 0
06.06.2019, 12:49
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823393
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
В 10.2 вот этот код работает корректно:

Код: 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.
type
  TPR = reference to procedure;

procedure Test2(PR: TPR);
begin
  PR();
end;

procedure Test(var Id: Integer);
var
  Idd: Integer;
begin
  Idd := Id;
  Test2(procedure
    begin
      Idd := 200;
    end);
  Id := Idd;
end;

var
  Id: Integer;
begin
  try
    Id := 1;
    WriteLn(Id);
    Test(Id);
    WriteLn(Id);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.


А у вас?
...
Рейтинг: 0 / 0
06.06.2019, 12:52
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823464
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
А анонимная функция вызывается? Вангую, что нет.
...
Рейтинг: 0 / 0
06.06.2019, 14:16
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823475
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-CiteА анонимная функция вызывается? Вангую, что нет.

Да она отрабатывает как нужно.
...
Рейтинг: 0 / 0
06.06.2019, 14:21
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823506
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Вызов ShowModal синхронный или асинхронный?
...
Рейтинг: 0 / 0
06.06.2019, 14:51
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823535
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-Cite, пробую и синхронно и асинхронно все тоже.

Код: 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.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
  PInteger: ^Integer;
begin
  PInteger := @I;
  UniSession.Synchronize;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          PInteger^ := 100;
          ShowMessage('test'); //Отрабатывает! Но переменная - не  захватывается. 
        end
        else
          PInteger^ := 200;
      end
      );
  end;
end;
...
Рейтинг: 0 / 0
06.06.2019, 15:21
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823542
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Если я пробую вызвать через метод объекта, указав тип процедуры - как метод объекта, все работает, но так бы не хотелось - ибо хочу обработку переменной Id иметь в одной процедуре в зависимости от mrOk или mrCancel:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
type
TCallBack = procedure(Sender: TComponent; Res: Integer) of object;

procedure CallActionFrm(var Id: Integer; pCallBack: TCallBack = nil);
var
  vMsg: TfrmBaseDictionaryList;
begin
  vMsg := TfrmBaseDictionaryList.Create(UniApplication);
  if Assigned(pCallBack) then
  begin
    vMsg.ShowModal(pCallBack);
    Id := 200;// ура переменная захватывается!
  end;
end;

procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject);
var id:Integer;
begin
id = 100;
CallActionFrm( id, DoCallBack);
end;
...
Рейтинг: 0 / 0
06.06.2019, 15:27
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823554
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
alekcvpВ 10.2 вот этот код работает корректно:

Код: 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.
type
  TPR = reference to procedure;

procedure Test2(PR: TPR);
begin
  PR();
end;

procedure Test(var Id: Integer);
var
  Idd: Integer;
begin
  Idd := Id;
  Test2(procedure
    begin
      Idd := 200;
    end);
  Id := Idd;
end;

var
  Id: Integer;
begin
  try
    Id := 1;
    WriteLn(Id);
    Test(Id);
    WriteLn(Id);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.


А у вас?

Этот код работает! Но в чем принципиальное отличие от моего метода - там переменная не захватывается!
...
Рейтинг: 0 / 0
06.06.2019, 15:47
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823599
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
wsnet, Анонимная функция - это интерфейс. В интерфейсе есть переменная, которая отвечает за это. Погляди в отладчике, присваивается ли ей значение.
...
Рейтинг: 0 / 0
06.06.2019, 16:53
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823604
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Код: 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.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
  PInteger: ^Integer;
begin
  PInteger := @I;
  UniSession.Synchronize;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          PInteger^ := 100;
          ShowMessage('test');
        end
        else
          PInteger^ := 200;
      end
      );
  end;
  ShowMessage('Exit');
end;

В каком порядке появятся сообщения?
...
Рейтинг: 0 / 0
06.06.2019, 16:56
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823699
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
_Vasilisk_
Код: 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.
procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
  PInteger: ^Integer;
begin
  PInteger := @I;
  UniSession.Synchronize;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          PInteger^ := 100;
          ShowMessage('test');
        end
        else
          PInteger^ := 200;
      end
      );
  end;
  ShowMessage('Exit');
end;

В каком порядке появятся сообщения?

Странно, но сначала 'Exit', а только потом 'test'. Отчего так?
...
Рейтинг: 0 / 0
06.06.2019, 19:35
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823700
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
UniApplication

У вас случаем не UniGui приложение?
...
Рейтинг: 0 / 0
06.06.2019, 19:36
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823701
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
И если да, то
http://forums.unigui.com/index.php?/topic/5221-showmodal-continue-application/
...
Рейтинг: 0 / 0
06.06.2019, 19:38
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823702
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-Cite, да UniGui.
...
Рейтинг: 0 / 0
06.06.2019, 19:38
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823703
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
ShowModal doesn't block execution in UniGUI, use callbacks to execute your code after the form is closed
...
Рейтинг: 0 / 0
06.06.2019, 19:40
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823706
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Вызов то асинхронный. Конечно работать не будет... Локальные замыкания работают только при синхронном вызове анонимки.
Ваша строка кода
I := tmp;
Выполнится раньше чем вызовется анонимка.
...
Рейтинг: 0 / 0
06.06.2019, 19:43
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823711
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-CiteВызов то асинхронный. Конечно работать не будет... Локальные замыкания работают только при синхронном вызове анонимки.
Ваша строка кода
I := tmp;
Выполнится раньше чем вызовется анонимка.

Теперь ясно! Только в Callback буду получать значение теперь! Спасибо!
...
Рейтинг: 0 / 0
06.06.2019, 19:58
| Ответить | Цитировать | Написать  
Захват переменной в анонимной процедуре
    #39823712
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
X-Cite Локальные замыкания работают только при синхронном вызове анонимки
Я тут соврал..будут работать и при асинхронном..
Ведь внутри анонимки контекст уже захвачен...
А вот код после ShowModal у unigui выполнится раньше чем анонимка, это надо понимать...
...
Рейтинг: 0 / 0
06.06.2019, 20:02
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Захват переменной в анонимной процедуре
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&tid=2039407]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 204ms
total:  466ms
созд. / загр.: 466ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]