нашел в справке такую инфу
| Код |
if F = MyFunction then ...;
In this case, the occurrence of F results in a function call; the compiler calls the function pointed to by F, then calls the function MyFunction, then compares the results. The rule is that whenever a procedural variable occurs within an expression, it represents a call to the referenced procedure or function. In a case where F references a procedure (which doesn't return a value), or where F references a function that requires parameters, the previous statement causes a compilation error. To compare the procedural value of F with MyFunction, use
if @F = @MyFunction then ...;
@F converts F into an untyped pointer variable that contains an address, and @MyFunction returns the address of MyFunction.
To get the memory address of a procedural variable (rather than the address stored in it), use @@. For example, @@F returns the address of F.
|
так вот написано что @F хранит адресс, адресс функции, и написано чтоб получить адресс процедурной переменны, то надо писать @@F, разве @F и @@F отличаются? Вот решил написать небольшой пример, но есть своки бока
| Код |
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
TProc=function(k:integer):integer;
function Fun(i:integer):Integer;
var
Form1: TForm1;
Proc:Tproc;
implementation
{$R *.dfm}
function Fun(i:integer):integer;
begin
Result:=i*2;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Proc:=@Fun;
ShowMessage(String(@Proc));
end;
|
Правильно ли я вывожу адресс? а то мне выводит пустое окно, а если пишу так:
| Код |
ShowMessage(String(@@Proc));
|
...то ошибка вылетает, ошибка AV. Можете помочь разъяснить ситуацию? Спасибо |
это я решил что важнее результат.