Conversion du langage C# vers Delphi 2005 pour .NET

Date de publication : 08/02/2004 , Date de mise a jour : 23/07/2005

Par Laurent Dardenne (Contributions)
 

Vous trouverez dans cet article des indications de conversion du langage C# vers Delphi 2005 pour .NET.

1. Public concerné

2. Introduction

Pour interagir entièrement avec d'autres objets quel que soit le langage dans lequel ils ont été implémentés, 
les objets ne doivent exposer aux appelants que les fonctionnalités qui sont communes à tous les langages avec 
lesquels ils doivent fonctionner. Pour cette raison, un ensemble de fonctionnalités de langage appelé 
spécification CLS (Common Language Specification), qui comprend les fonctionnalités de langage de base 
nécessaires à de nombreuses applications, a été défini.

Afin qu'un module soit conforme CLS, via [module:System.CLCSompliant(true)], il doit être généré avec l'option 
/target:module du compilateur.

Pour ceux qui souhaiteraient aborder plus en détails la comparaison entre le langage C# et le langage Delphi pour .NET, consultez le cours complet sur le C# de RM di Scala .

Vous trouverez ici quelques liens utiles glanés au cours de ma rédaction qui vous permettront d'aborder plus précisément certains points :

 Anders Hejlsberg : Une courte biographie d'un des concepteurs du C# et de Delphi.

 The C# Design Process : A Conversation with Anders Hejlsberg.

 Pages Microsoft dédiées au langage C# notamment les spécifications 2.0.

Un cours complet sur le C# par RM di Scala.

Un second cours complet sur le C# (lien direct sur un fichier au format Pdf).

 Conversion C# vers Delphi : un outil Borland en version BETA, sa version en  add-in pour l'IDE Delphi 2005.

Conversion C++ vers C#

3. Modificateur de types et de membres de types

3-1. Modificateurs d'accès

3-2. Autres modificateurs

3-2-1. Exemple de procédure external

 [DllImport("kernel32", SetLastError=true)]
 static extern bool CreateDirectory(string name, SecurityAttribute sa);

[DllImport('user32.dll', SetLastError=true)]
function CreateDirectory(name: string ; sa : SecurityAttribute):Boolean; external;

3-2-2. Exemple d'initialisation de champ statique

using System;
class Test
{
   static void Main() {
      Console.WriteLine("{0} {1}", B.Y, A.X);
   }
   public static int F(string s) {
      Console.WriteLine(s);
      return 1;
   }
}
class A
{
   public static int X = Test.F("Init A");
}

 A=Class
  Public
   // champs de classe, static
   Class var X : Integer;
 end;

public static readonly DBBool dbNull = new DBBool(0);

   TDBBool = record
   Strict private
        // Champ privé pour stocker la valeur du type
      FValeur : integer;

        // champs de classe, static
      Class var FdbNull  : TDBBool;

      Class Constructor CCreate;

     Private
      // Le constructeur ne doit pas être accessible
      // Private pour TDBBool.dbTrue:=TDBBool.Create(0);
      Constructor Create(AValeur: DBType);
      ...
    end;

implementation

   Constructor TDBBool.Create(AValeur: DBType);
   Begin
    FValeur:=AValeur;
   end;

   Class Constructor TDBBool.CCreate;
   Begin
      // Initialise les valeurs possibles du type
     TDBBool.FdbNull.FValeur:=cdbNull;
   end;

4. Opérateurs

public static implicit operator DBBool(bool x)

Class operator TDBBool.Explicit(x: TDBBool): Boolean;

5. Types

• de directives de compilation, notamment /checked.
  
• de convention de conversion, implicite ou explicite, différente.

6. Tests

6-1. ?:

a ? b : c ? d : e

If a=true then b 
 else if c=true then d 
       else e

6-2. switch

public override string ToString() 
 {
    switch (value) 
     {
	case -4
	case -3
	case -2: 
	  Console.writeline("Exemple");
	  Break;
	case -1:
	 return "DBBool.False"; 
	case 0:
	 return "DBBool.Null";
	case 1:
	 return "DBBool.True";
	default:
	 throw new InvalidOperationException();
      }
  }

Function TDBBool.ToString: String;
begin
  Case Fvaleur of
   -4,
   -3,
   -2: begin
        Console.writeline("Exemple");
       end;

   -1: begin
        Result:='TDBBool.False';
        Exit;
       end;
    0: begin
        Result:='TDBBool.Null';
        Exit;
       end;
    1: begin
        Result:='TDBBool.True';
        Exit;
       end;
   else Raise InvalidOperationException.Create;
  end;
end;

6-3. Test de validité sur des pointeurs (null)

if (EventTest != null)
  EventTest(this, new EventArgs());

 if Assigned(FEventTest) then
  FEventTest(Self, EventArgs.Create);

7. Structures itératives

7-1. While

public static void Main() 
{
  int n = 1;
  while (n < 6) do
  {
    Console.WriteLine("la valeur courante de n est {0}", n);
    n++;
  }
}

procedure Main;
var n: integer;
begin
 n:= 1;
 while (n < 6) 
 begin
    WriteLn('la valeur courante de n est ', n);
    inc(n);
 end; 
end;

7-2. Do/While

public static void Main () 
{
  int x;
  int y = 0;

  do 
  {
    x = y++; // post-incrémentation
    Console.WriteLine(x);
  }
  while(y < 5);
}

procedure Main;
var x, y : integer;
begin
  y:=0;

  Repeat 
   x:=y;
   inc(y);
   Console.WriteLine(x);
  Until (y >= 5);
end;

7-3. For

 for (int i = 1; i <= 10; i++) 
  {
    Console.WriteLine(i);
  }

Var i: integer;
Begin
 for i := 1 to 10 do
  begin
   Console.WriteLine(i);
  end;

7-4. Foreach

// Utilisation avec les tableaux
using System;
class MainClass 
{
   public static void Main() 
   {
      int odd = 0, even = 0;
      int[] arr = new int [] {0,1,2,5,7,8,11};

      foreach (int i in arr) 
      {
         if (i%2 == 0)  
            even++;      
         else 
            odd++;         
      }
      Console.WriteLine("Trouvé  {0} chiffre impair et {1} chiffre pair.",
                        odd, even) ;
   }
}

var i, odd, even : integer;

 arr  : Array of integer;

Begin
 odd:= 0;
 even:=0;
 arr:= New(array[] of integer,(0,1,2,5,7,8,11));

 For i in arr Do
  if (i mod 2 = 0)
   then inc(even)
   else inc(odd);

 WriteLn('Trouvé '+ intToStr(odd)+' chiffre impair et '+intToStr(even)+' chiffre pair.') ;
 Readln;
end;

• for Element in ArrayExpr do Instruction;
• for Element in StringExpr do Instruction;
• for Element in SetExpr do Instruction;
• for Element in CollectionExpr do Instruction;

7-5. Rupture de séquence

7-5-1. Break

7-5-2. Continue

7-5-3. Exit

8. Exception

8-1. Déclencher une exception

public static explicit operator bool(DBBool x) 
{
  if (x.value == 0) throw new InvalidOperationException();
  return x.value > 0;
}

Class operator TDBBool.Explicit(x: TDBBool): Boolean;
const
 cdbNull=0;
 cdbTrue=1;
 
begin
 If x.FValeur=cdbNull
  then raise InvalidOperationException.Create
  else Result:=x.FValeur=cdbTrue;
end;

8-2. Gestion d'une exception

public override bool Equals(object o) 
{
  try 
  {
    return (bool) (this == (DBBool) o);
  }
  catch 
  {
    return false;
  }
}

Function TDBBool.Equals(x: TObject):Boolean;
begin
 try
   Result:= (Self = x as TDBBool);
  except
   Result:=False;
  end;
end;

8-3. Redéclencher une exception

try 
 ...
catch (InvalidCastException e) 
{
  Console.WriteLine("b est NULL")
  throw (e);   // Redéclenche l'exception e avec ses paramètres
}

try
 ...
except
  On E:InvalidOperationException do
   begin
    Console.WriteLine('b est NULL')
    Raise; // L'exception concernée, ici E, est implicite
   end; 
end;

8-4. Bloc finally

public static void Main() 
{
  int i = 123;
  string s = "Une chaîne";
  object o = s;

  try 
   {
      // conversion invalide ; o contient une string et pas un entier.
    i = (int) o;   
   }
  finally 
   {
    Console.Write("i = {0}", i);
   }         
}

Procedure Main() 
var
  i: integer;
  s: string;
  o: TObject;

begin
 i:= 123;
 s:='Une chaîne';
 o:=s;

 try 
       // conversion invalide ; o contient une string et pas un entier.
    i = integer (o);   
  finally 
    Console.Write('i = {0}', i);
  end;  
end;

9. Classe

9-1. Héritage

9-2. Constructeur

...
public Initialise(Int32 n): this(){
 this.n = n;
}
...

...
constructor Initialise(n : integer);
begin
 inherited Create; // En Delphi .NET l'appel de l'ancêtre est obligatoire. 
 Self.n = n;
end;
...

9-3. Destructeur

public class test{
...
 ~Test(){
  // Cleanup statements.
  CloseHandle(Handle);
 }
...
}

public class test{
...

protected override void Finalize()
{
   try
   {
    // Cleanup statements.
   CloseHandle(Handle);
      
   }
   finally
   {
      base.Finalize();
   }
}

procedure TTest.Finalize;
begin
  try
    CloseHandle(handle.ToInt32);
  finally
    inherited;
  end
end;

9-4. Type de membres

• constantes
• champs
• méthodes
• propriétés
• événements
• indexeurs
• opérateurs
• constructeurs d'instance
• constructeurs statiques
• destructeurs
• types imbriqués

9-5. Méthode

9-5-1. Procédure

void UneMethode();

Procedure UneMethode;

9-5-2. Fonction

static double CalculateArea(int r) 
{
  double area;
  area = r*r*Math.PI;
  return area;
}

function CalculateArea(r: integer):double;
var area : double;
begin
  area:= r*r*Math.PI;
  Result:=area;
  Exit;
end;

9-5-2-1. Fonction delegate

delegate void MethodeDelegate(int i);

MethodeDelegate = function(x: Integer): string of object;

9-5-2-2. Gestionnaire d'événement

public delegate void EventHandler(Object sender, EventArgs e);

TEventHandler = Procedure (Sender:TObject ; e : EventArgs) Of Object;

 TCompte=Class
 ...
  // Utilisation d'une propriété dans une classe
 Property MonDelegue:TMonDelegue add FMonDelegue remove FMonDelegue;
 ...
 end;	

 ...

  // L'ajout d'un délégué
 Include(UnCompte.MonDelegue,@Traite);
...
  // La suppression d'un délégué
 Exclude(UnCompte.MonDelegue,@Traite);
...

9-6. Passage de paramètres

9-7. Paramètres en nombre variable

public class Console 
{ 
public static void Write(string fmt, params object[] args) {...} 
public static void WriteLine(string fmt, params object[] args) {...} 
... 
}

Procedure(fmt: string; Args : array of TObject);

10. Propriétés

using System;
class Person
{
    private int myAge = 0;

    // Déclare une propriété Age de type integer:
    public int Age
    {   // Déclare les méthodes accesseur.
        get
        { 
          return myAge; 
        }
        set
        { 
          myAge = value; 
        }
    }
}

  // Area est une propriété en read-only.
 public abstract double Area
 {
  get;
 }

 // Redéclaration de la propriété Area dans une classe dérivée
 public override double Area
   {
      get
      {
         return mySide * mySide;
      }
   }

• Simple
• Enuméré
• Ensemble
• Objet
• Tableau

10-1. Comparaison entre les propriétés et les indexeurs

11. Structure de données

11-1. Struct

public struct Point 
{
   public int x, y;

   public Point(int p1, int p2) 
   {
      x = p1;
      y = p2;    
   }
}

Type
 Point = Record
  x, y : integer;

  constructor Point.Create(p1,p2 : integer) ;
 end;

  constructor Point.Create(p1,p2 : integer) ;
   begin
      x:=p1;
      y:=p2;    
   end;
 end;

11-2. Tableau

 int[] arr = new int[5];
 arr[0] = 2;

 var 
  arr : array[0..4] of integer; // tableau statique
 begin 
  arr[0]:= 2;

 int[] arr = new int[3] {0, 1, 2};

 arr:= New(array[] of integer,(0,1,2)); ...

11-2-1. Tableau de tableaux (jagged array)

    // tableau de tableaux (jagged array)
   byte[][] scores = new byte[5][];
    // Création du "jagged array"
   for (int i = 0; i < scores.Length; i++)
   {
    scores[i] = new byte[i+3];
   }

type
 TScores = Array of Array of byte; // Tableaux dynamiques multi-dimensionnels

var Scores :TScores;
    i: integer; 
begin
 SetLength(Scores,10); // Allocation des lignes
    // Création du "jagged array"
   for i := Low(Scores) to High(Scores) do
    SetLength(cores[i], i+3); // Allocation des colonnes

12. Déclaration de variables

class ExempleVisible2 {
 int a = 10; // Cette initialisation est déclarée dans le constructeur.
 int g (int x )
 { return 3*x-a;
 }

ExempleVisible2=Class
 public
  a : integer;
  Function g(x : integer):Integer;
  Constructor Create;
end;
 // L'assignation de a = 10 du C# est à la charge du développeur en Delphi .NET.
Constructor Create;
begin
 a:=10;
end;

 // Extrait de l'unité System.pas
...
var
  LMainThread: System.Threading.Thread;

function MainThread: System.Threading.Thread;
begin
  Result := LMainThread;
end;

var
  LastRandSeed: Integer = -1;
  RandomEngine: System.Random;

procedure InitRandom;
begin
...

13. Instructions diverses

 using (Object MonObjet= new Object)
      {
        MonObjet.FaitqqChose;
      }

with MonObjet.Create do
 try 
  MonObjet.FaitqqChose;
 finally 
  if Assigned(MonObjet) then
   (MonObjet as IDisposable).Dispose;
 end;

13-1. Utilisation de mot-clé réservé

   public FileInfo lockFileInfo;

   public override bool Obtain()
   {
    try
    {
     FileStream fs = lockFileInfo.Create();
     fs.Close();
    }
    catch
    {
     return false;
    }
    return true;
   }

var
  fs: FileStream;
begin
  try
    fs := lockFileInfo.Create('');

[Erreur] Project1.dpr(18): E2382 Impossible d'appeler des constructeurs utilisant des variables d'instance

var
  fs: FileStream;
  lockFileInfo: FileInfo;

Begin
 try
  lockFileInfo := FileInfo.Create('MyFile.txt');
  fs := lockFileInfo.&Create;
 except
  fs.Close();
 end;

14. Attributs

15. C# 2.0 et les génériques, ...

{
  Database db = new Database("db://amazon.com");
  XML list = db.Search("Author like 'Hugh Darwen'");
  foreach (XML book in list) {
    wishlist.Add(book.Title + ", " + book.ISBN);
  }