function GetAddrConstructor: pointer;
label
  L_Exit;
begin
  asm
               mov     eax, @AddrCall.Pointer     // адрес команды
               sub     eax, 4                     // адрес смещения функции УТОЧНИТЬ В ОТЛАДЧИКЕ (ОКНО ASSWMBLER)
               mov     eax, [eax]                 // адрес конструктора
               jmp     L_Exit                     // выход
  @AddrCall:
               dd      L_Exit
  end;
  TStringStream.Create('');
L_Exit:
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Test; overload;
  published
    procedure Test(const S: string); overload;
  end;

type
  TestClass = class
  published
    function TestFunc(a: Integer; f: TestClass): string; overload;
  end;

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, rtti, Test;

var
  с: TRttiContext;

begin
  Writeln(с.FindType('Test.TestClass').GetMethod('TestFunc').ToString);
  Readln;

end.

procedure  P; overload;
procedure  P(aInt : integer); overload;
...
begin
... :=  @P; // Метод без параметров
... :=  @P(integer); // С параметром типа integer

procedure test; overload;
begin
end;

procedure test(a:string); overload;
begin
end;

var

 proc : procedure(a:string);

begin
 proc := @test;
end.

begin
 proc := test;
end

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure test; overload;
begin
  writeln('test()');
end;

procedure test(a:string); overload;
begin
  writeln('test(string)');
end;

var
 proc : procedure;
 procS : procedure(a:string);

begin
  proc := @test;
  procS := @test;

  proc;
  procS('aaa');

  readln;
end.

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

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