+ Added more tests of getprops

tests/testrtti.pp

@@ -348,18 +348,27 @@ begin
       begin
       Write ('(Examining ',name,' : Type : ',TypeNames[PropType^.Kind],', ');
       If (Proptype^.kind in Ordinaltypes) Then
-        Write ('Value : ',GetOrdProp(O,pri))
-{
-      // Skipping the ord() never gives True !!! ???
-      else If ord(pri^.proptype^.kind) = ord(tkfloat) then
         begin
-        Write (', Value : ');
+        J:=GetOrdProp(O,pri);
+        Write ('Value : ',j);
+        If PropType^.Kind=tkenumeration then
+          Write ('(=',GetEnumName(Proptype,J),')')
+        end
+      else 
+        Case pri^.proptype^.kind of
+          tkfloat :  begin
+                     Write ('Value : ');
                      Flush(output);
                      Write(GetFloatProp(O,pri))
-        end
+                     end;
-}
+        tkAstring : begin
+                    Write ('value : ');
+                    flush (output);
+                    Write(GetStrProp(O,Pri));
+                    end;
         else 
-        Write ('Not of type ordinal, bool or float:',ord(pri^.proptype^.kind));
+          Write ('Untested type:',ord(pri^.proptype^.kind));
+        end;  
           Writeln (')');
       end;
     end;