Hi
I am using the following FPC version:
Free Pascal Compiler version 2.0.1 [2005/10/02] for i386 on Windows 2000
In the file:
\rtl\objpas\typinfo.pp
there is a missing GetPropList overloaded method compared to Delphi. I
noticed this while porting a Delphi app to FPC.
-------------- CUT --------------------
function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
begin
Result := GetPropList(PTypeInfo(AObject.ClassInfo), PropList);
end;
-------------- END --------------------
Attached is the diff/patch file for the changes.
Regards,
- Graeme -
***************
*** 198,201 ****
--- 196,203 ----
Procedure GetPropInfos(TypeInfo : PTypeInfo;PropList : PPropList);
Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList :
PPropList;Sorted : boolean = true):longint;
Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
+ function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
+
// Property information routines.
***************
*** 694,697 ****
--- 695,704 ----
end;
end;
+ function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
+ begin
+ Result := GetPropList(PTypeInfo(AObject.ClassInfo), PropList);
+ end;
{ ---------------------------------------------------------------------
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel