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

* adapted for use with DOS

Browse Source
This commit is contained in:
florian 1999-05-07 11:02:06 +00:00
parent baa08b8bab
commit c57f9f07a7
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/testrtti.pp
View File

@ -1,6 +1,12 @@
Program testrtti; Program testrtti;
Uses Typinfo,classes; {$M+}
Uses
{$ifdef go32v2}
dpmiexcp,
{$endif}
Typinfo;
Const TypeNames : Array [TTYpeKind] of string[15] = Const TypeNames : Array [TTYpeKind] of string[15] =
('Unknown','Integer','Char','Enumeration', ('Unknown','Integer','Char','Enumeration',
@ -13,7 +19,7 @@ Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
Type Type
TMyEnum = (meFirst,meSecond,meThird); TMyEnum = (meFirst,meSecond,meThird);
Type TMyTestObject = Class(TPersistent) Type TMyTestObject = Class
Private Private
FBoolean : Boolean; FBoolean : Boolean;
FByte : Byte; FByte : Byte;