type TP = procedure(a : integer) of object;
type P_TP = ^TP;
procedure TForm1.Button1Click(Sender: TObject);
var
ParamMethod : TArrayOfPointers;
m : procedure(a : integer) of object;
a : integer;
m1 : Pointer;
begin
App(0);
m := App;
m1 := @m;
a := 1027;
m(0);
P_TP(@m1)^(3);
end;
procedure TForm1.App(a : integer);
var pSelf : Pointer;
begin
pSelf := @Self;
if (Self.Height < 543) or (pSelf = Pointer(52)) then
Self.Height := Self.Height div 2;
end;
generates an exception in the call "P_TP(@m1)^(3);"
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "delphi-en" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
