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

* Added prototypes for GetInt64Prop and SetInt64Prop

Browse Source 
* Added constants "BooleanIdents" and "DotSep"
This commit is contained in:
sg 2000-06-22 15:29:31 +00:00
parent ddee9c4979
commit d6ec03b275
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/objpas/typinfo.pp
View File

@ -204,10 +204,20 @@ unit typinfo;
procedure SetMethodProp(Instance : TObject;PropInfo : PPropInfo;
const Value : TMethod);
function GetInt64Prop(Instance: TObject; PropInfo: PPropInfo): Int64;
procedure SetInt64Prop(Instance: TObject; PropInfo: PPropInfo;
const Value: Int64);
{ misc. stuff }
function GetEnumName(TypeInfo : PTypeInfo;Value : Integer) : string;
function GetEnumValue(TypeInfo : PTypeInfo;const Name : string) : Integer;
var
BooleanIdents: array[Boolean] of String = ('False', 'True');
DotSep: String = '.';
implementation
type
@ -777,6 +787,18 @@ unit typinfo;
end;
end;
function GetInt64Prop(Instance: TObject; PropInfo: PPropInfo): Int64;
begin
// !!!: Implement me!
Result := 0;
end;
procedure SetInt64Prop(Instance: TObject; PropInfo: PPropInfo;
const Value: Int64);
begin
// !!!: Implement me!
end;
function GetEnumName(TypeInfo : PTypeInfo;Value : Integer) : string;
Var PS : PShortString;
@ -820,7 +842,11 @@ end.
{
$Log$
Revision 1.39 2000-05-18 09:42:17 michael
Revision 1.40 2000-06-22 15:29:31 sg
* Added prototypes for GetInt64Prop and SetInt64Prop
* Added constants "BooleanIdents" and "DotSep"
Revision 1.39 2000/05/18 09:42:17 michael
+ GetPropInfo now case insensitive
Revision 1.38 2000/02/15 14:39:56 florian