paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 07:00:41 +01: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; Program testrtti;
Uses Typinfo;
{$M+} {$M+}
Uses Uses
@ -17,9 +19,8 @@ Const TypeNames : Array [TTYpeKind] of string[15] =
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool]; Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
Type Type
TMyEnum = (meFirst,meSecond,meThird); TMyEnum = (meFirst,meSecond,meThird);
TMyTestObject = Class(TObject)
Type TMyTestObject = Class
Private Private
FBoolean : Boolean; FBoolean : Boolean;
FByte : Byte; FByte : Byte;