Fix all examples for Delphi

Author: michaliskambi

code-samples/generics_dictionary.dpr

@@ -8,12 +8,12 @@ type
     Name: string;
   end;
 
-  TAppleDictionary = {$ifdef FPC}specialize{$endif} TDictionary<string, TApple>;
+  TAppleDictionary = {$ifdef FPC}specialize{$endif} TDictionary<String, TApple>;
 
 var
   Apples: TAppleDictionary;
   A, FoundA: TApple;
-  ApplePair: TAppleDictionary.TDictionaryPair;
+  ApplePair: {$ifdef FPC} TAppleDictionary.TDictionaryPair {$else} TPair<String, TApple> {$endif};
   AppleKey: string;
 begin
   Apples := TAppleDictionary.Create;

code-samples/generics_object_dictionary.dpr

@@ -8,12 +8,12 @@ type
     Name: string;
   end;
 
-  TAppleDictionary = {$ifdef FPC}specialize{$endif} TObjectDictionary<string, TApple>;
+  TAppleDictionary = {$ifdef FPC}specialize{$endif} TObjectDictionary<String, TApple>;
 
 var
   Apples: TAppleDictionary;
   A: TApple;
-  ApplePair: TAppleDictionary.TDictionaryPair;
+  ApplePair: {$ifdef FPC} TAppleDictionary.TDictionaryPair {$else} TPair<String, TApple> {$endif};
 begin
   Apples := TAppleDictionary.Create([doOwnsValues]);
   try

code-samples/interfaces_com_with_ref_counting.dpr

@@ -57,7 +57,7 @@ begin
   try
     UseThroughInterface(C1); // no need to use "as" operator
     UseThroughInterface(C2);
-    if C3 is IMyInterface then
+    if Supports(C3, IMyInterface) then
       UseThroughInterface(C3 as IMyInterface); // this will not execute
   finally
     { C1 and C2 variables go out of scope and will be auto-destroyed now.

code-samples/interfaces_corba_test.dpr

@@ -1,6 +1,9 @@
 {$ifdef FPC}
   {$mode objfpc}{$H+}{$J-}
   {$interfaces corba} // See below why we recommend CORBA interfaces
+{$else}
+  {$message warn 'Delphi does not support CORBA interfaces, only COM, that change how memory is managed. This example is not valid in Delphi.'}
+  begin end.
 {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
 

code-samples/operator_overloading.dpr

@@ -1,6 +1,11 @@
 {$ifdef FPC} {$mode objfpc}{$H+}{$J-} {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
 
+{$ifndef FPC}
+  {$message warn 'Delphi does not support global operator overloading'}
+  begin end.
+{$endif}
+
 uses
   StrUtils;
 

code-samples/operator_overloading_classes.dpr

@@ -1,6 +1,11 @@
 {$ifdef FPC} {$mode objfpc}{$H+}{$J-} {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
 
+{$ifndef FPC}
+  {$message warn 'Delphi does not support global operator overloading'}
+  begin end.
+{$endif}
+
 uses
   SysUtils;
 

code-samples/operator_overloading_records.dpr

@@ -1,8 +1,12 @@
 {$ifdef FPC} {$mode objfpc}{$H+}{$J-} {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
 
-uses
-  SysUtils;
+{$ifndef FPC}
+  {$message warn 'Delphi does not support global operator overloading'}
+  begin end.
+{$endif}
+
+uses SysUtils;
 
 type
   TMyRecord = record

code-samples/operator_overloading_records_lists.dpr

@@ -4,6 +4,11 @@
 {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
 
+{$ifndef FPC}
+  {$message warn 'Delphi does not have FGL unit'}
+  begin end.
+{$endif}
+
 uses
   SysUtils, FGL;
 

code-samples_bg/generics_dictionary.dpr

@@ -6,12 +6,12 @@ type
     Name: string;
   end;
 
-  TAppleDictionary = {$ifdef FPC}specialize{$endif} TDictionary<string, TApple>;
+  TAppleDictionary = {$ifdef FPC}specialize{$endif} TDictionary<String, TApple>;
 
 var
   Apples: TAppleDictionary;
   A, FoundA: TApple;
-  ApplePair: TAppleDictionary.TDictionaryPair;
+  ApplePair: {$ifdef FPC} TAppleDictionary.TDictionaryPair {$else} TPair<String, TApple> {$endif};
   AppleKey: string;
 begin
   Apples := TAppleDictionary.Create;

code-samples_russian/interfaces_corba_test.dpr

@@ -1,6 +1,9 @@
 {$ifdef FPC}
   {$mode objfpc}{$H+}{$J-}
   {$interfaces corba}
+{$else}
+  {$message warn 'Delphi does not support CORBA interfaces, only COM, that change how memory is managed. This example is not valid in Delphi.'}
+  begin end.
 {$endif}
 {$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}