paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 16:43:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ tobject.methodaddress und tobject.methodname durchsucht nun auch

Browse Source 
die Elternklassen
This commit is contained in:
florian 1999-09-12 14:53:26 +00:00
parent c3b3c19887
commit fcd9a97bcb
1 changed files with 35 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/objpas.inc
View File

@ -132,9 +132,13 @@
var
methodtable : pmethodnametable;
i : dword;
c : tclass;
begin
methodtable:=pmethodnametable((Pointer(Self)+vmtMethodTable)^);
c:=self;
while assigned(c) do
begin
methodtable:=pmethodnametable((Pointer(c)+vmtMethodTable)^);
if assigned(methodtable) then
begin
for i:=1 to methodtable^.count do
@ -144,6 +148,8 @@
exit;
end;
end;
c:=c.ClassParent;
end;
MethodAddress:=nil;
end;
@ -152,9 +158,13 @@
var
methodtable : pmethodnametable;
i : dword;
c : tclass;
begin
methodtable:=pmethodnametable((Pointer(Self)+vmtMethodTable)^);
c:=self;
while assigned(c) do
begin
methodtable:=pmethodnametable((Pointer(c)+vmtMethodTable)^);
if assigned(methodtable) then
begin
for i:=1 to methodtable^.count do
@ -164,6 +174,8 @@
exit;
end;
end;
c:=c.ClassParent;
end;
MethodName:='';
end;
@ -393,7 +405,11 @@
{
$Log$
Revision 1.9 1999-09-12 08:01:00 florian
Revision 1.10 1999-09-12 14:53:26 florian
+ tobject.methodaddress und tobject.methodname durchsucht nun auch
die Elternklassen
Revision 1.9 1999/09/12 08:01:00 florian
+ implementation of TObject.MethodName and TObject.MethodAddress (not
in the compiler yet)