paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 19:02:41 +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 var
methodtable : pmethodnametable; methodtable : pmethodnametable;
i : dword; i : dword;
c : tclass;
begin begin
methodtable:=pmethodnametable((Pointer(Self)+vmtMethodTable)^); c:=self;
while assigned(c) do
begin
methodtable:=pmethodnametable((Pointer(c)+vmtMethodTable)^);
if assigned(methodtable) then if assigned(methodtable) then
begin begin
for i:=1 to methodtable^.count do for i:=1 to methodtable^.count do
@ -144,6 +148,8 @@
exit; exit;
end; end;
end; end;
c:=c.ClassParent;
end;
MethodAddress:=nil; MethodAddress:=nil;
end; end;
@ -152,9 +158,13 @@
var var
methodtable : pmethodnametable; methodtable : pmethodnametable;
i : dword; i : dword;
c : tclass;
begin begin
methodtable:=pmethodnametable((Pointer(Self)+vmtMethodTable)^); c:=self;
while assigned(c) do
begin
methodtable:=pmethodnametable((Pointer(c)+vmtMethodTable)^);
if assigned(methodtable) then if assigned(methodtable) then
begin begin
for i:=1 to methodtable^.count do for i:=1 to methodtable^.count do
@ -164,6 +174,8 @@
exit; exit;
end; end;
end; end;
c:=c.ClassParent;
end;
MethodName:=''; MethodName:='';
end; end;
@ -393,7 +405,11 @@
{ {
$Log$ $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 + implementation of TObject.MethodName and TObject.MethodAddress (not
in the compiler yet) in the compiler yet)