Dynamic variable names: Difference between revisions

Content added Content deleted

Inline

@@ Line 904: / Line 904: @@
 PROGRAM ExDynVar;
+{$IFDEF FPC}
-{$mode objfpc}{$H+}{$J-}{R+}
+    {$mode objfpc}{$H+}{$J-}{R+}
+{$ELSE}
+    {$APPTYPE CONSOLE}
+{$ENDIF}
 (*
@@ Line 915: / Line 919: @@
  *)
+uses
-USES
+  Generics.Collections,
+  SysUtils,
-    Generics.Collections,
+  Variants;
-                SysUtils,
-                Variants;
 TYPE
+    Tdict =
-    Tdict = specialize TDictionary < ansistring, variant > ;
+    {$IFDEF FPC}
+    specialize
+    {$ENDIF}
+     TDictionary < ansistring, variant > ;
 VAR