Changeset 481 for Generics/NativeGenerics/Demo/UMainForm.pas

Timestamp:

Feb 23, 2016, 10:30:36 PM (8 years ago)

Author:

chronos

Message:

• Updated: Fix NativeGenerics project compilation with FPC 3.0.0.

File:

• Generics/NativeGenerics/Demo/UMainForm.pas (modified) (1 diff)

Generics/NativeGenerics/Demo/UMainForm.pas

@@ -241 +241 @@
     Values['Key2'] := 'None';
     WriteOutput('Values[Key2]', Values['Key2']);
-    WriteOutput('Values[Key0]', Values['Key0']);
+    WriteOutput('Index of Key0', IntToStr(SearchKey('Key0')));
     WriteOutput('Keys[2]', Keys[2]);
   finally