2

Как вызвать локальные процедуры из списка т.е по ссылке на нее?

Пробовал через:

  • TProc = procedure of object;
  • TProc = procedure;
  • TProc = reference to procedure;

ничего не работает. Может через asm только можно?

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  procedure Loc1;
  begin
    ShowMessage('1' + Self.Memo1.Name + ' cl:' + Sender.ClassName);
  end;
  procedure Loc2;
  begin
    ShowMessage('2' + Self.Memo1.Name + ' cl:' + Sender.ClassName);
  end;
  procedure Loc3;
  begin
    ShowMessage('3' + Self.Memo1.Name + ' cl:' + Sender.ClassName);
  end;
type
  TProc = procedure of object;
var
  L: TAmListVar<Pointer>;
  M: TMethod;
begin
   L.Add(@Loc1);
   L.Add(@Loc2);
   L.Add(@Loc3);
   M.Data := Self;
   M.Code := L[1];
   TProc(M)();
end;

Вот так получилось вызвать, но есть ли вариант без asm?

   P := @Loc1;
   asm
     push ebp
     call  [P]
     pop ecx
   end;
2
  • 1
    инлайн процедура это не метод класса, чтобы его через TMethod вызывать.
    – teran
    28 июн 2022 в 16:59
  • @ teran где инлайн? я ж писал что по всякому пробовал ниче не работает TProc = procedure of object; TProc = procedure; TProc =reference to procedure;
    – vegat4
    29 июн 2022 в 5:36

1 ответ 1

3

И не будет оно так работать. (Тут хорошее объяснение - https://stackoverflow.com/a/15183713/77764)


А вот так - будет:

procedure TForm.FormCreate(Sender: TObject);
type
  TProc2 = reference to procedure;
var
  L: TList<TProc2>;
  p: TProc2;
begin
  L := TList<TProc2>.Create;
  p := procedure begin showmessage('1 cl:'+Sender.ClassName); end;
  L.Add(p);
  p := procedure begin showmessage('2 cl:'+Sender.ClassName); end;
  L.Add(p);
  L[0]();
  L[1]();
  L.Free;
end;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.