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

* Classes no longer needed.

Browse Source
This commit is contained in:
michael 1999-06-04 12:50:27 +00:00
parent fe46d024db
commit b37fc98b9e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/testrtti.pp
View File

@ -1,5 +1,7 @@
Program testrtti;
Uses Typinfo;
{$M+}
Uses
@ -17,9 +19,8 @@ Const TypeNames : Array [TTYpeKind] of string[15] =
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
Type
TMyEnum = (meFirst,meSecond,meThird);
Type TMyTestObject = Class
TMyEnum = (meFirst,meSecond,meThird);
TMyTestObject = Class(TObject)
Private
FBoolean : Boolean;
FByte : Byte;