paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:09:45 +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

10
tests/testrtti.pp
View File

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