paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged getpropinfo fix

Browse Source
This commit is contained in:
peter 2002-04-04 18:32:59 +00:00
parent 0ee2ac7451
commit 9cacd98e91
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -414,6 +414,7 @@ var
hp : PTypeData; hp : PTypeData;
i : longint; i : longint;
p : string; p : string;
pd : ^TPropData;
begin begin
P:=UpCase(PropName); P:=UpCase(PropName);
@ -421,9 +422,10 @@ begin
begin begin
// skip the name // skip the name
hp:=GetTypeData(Typeinfo); hp:=GetTypeData(Typeinfo);
// the class info rtti the property rtti follows immediatly // the class info rtti the property rtti follows immediatly
Result:=PPropInfo(pointer(@hp^.UnitName)+Length(hp^.UnitName)+1+SizeOF(Word)); pd:=pointer(pointer(@hp^.UnitName)+Length(hp^.UnitName)+1);
for i:=1 to hp^.PropCount do Result:=@pd^.PropList;
for i:=1 to pd^.PropCount do
begin begin
// found a property of that name ? // found a property of that name ?
if Upcase(Result^.Name)=P then if Upcase(Result^.Name)=P then
@ -1149,7 +1151,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.12 2001-08-04 11:03:42 peter Revision 1.13 2002-04-04 18:32:59 peter
* merged getpropinfo fix
Revision 1.12 2001/08/04 11:03:42 peter
* moved i386 specific code to include file * moved i386 specific code to include file
Revision 1.11 2001/07/29 13:50:44 peter Revision 1.11 2001/07/29 13:50:44 peter