Как можно узнать размер процедуры? Почему нельзя так? program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
procedure some1;
begin
end;
procedure some2;
begin
end;
var
len : dword;
begin
len:=dword(@some2)-dword(@some1);
exit;
some1;
some2;
end.
1. Нигде не гарантируется, что в исполняемом модуле процедуры будут идти в том же порядке, что и в коде. 2. Нигде не гарантируется, что между процедурами не будет другого кода.