Delphi to C# migration

Conversion Samples of Delphi to C# WinForms

Ispirer Toolkit analyzes all object dependencies during the conversion process and provides not only line-by-line conversion, but resolves type conversions as well. The software understands and transforms the necessary inheritance dependencies. It parses the entire source code, builds an internal tree with all the information about the objects, and uses it in the migration process.

The code samples below provide you with more details.

• Variables declaration conversion:

  Delphi

  1. var   CanClose: Boolean;
  2.     CustNo: Double;
  3.     DBPath: string;
  4.     Key: Char;
  5.     I: Integer;
  6.     RSCON: TIniFile;

  → C# WinForms

  1. bool CanClose;
  2. double CustNo;
  3. string Dbpath;
  4. char Key;
  5. int I;
  6. IniFile RSCON = null; //class IniFile implemented in AdditionalClasses

• .pas file structure conversion:

  Delphi

  1. unit Splash;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TSplashForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Label3: TLabel;
  13.     Bevel1: TBevel;
  14.     Label1: TLabel;
  15.     Image1: TImage;
  16.   end;
  17.  
  18. var
  19.   SplashForm: TSplashForm;
  20.  
  21. implementation
  22.  
  24.  
  25. end.

  → C# WinForms

  1. using System;
  2. using System.IO;
  3. using System.Data;
  4. using System.Drawing;
  5. using System.Windows;
  6. using System.Windows.Forms;
  7. using System.Collections.Generic;
  8.  
  9. namespace Splash
  10. {
  11.   public partial class TSplashForm : Form
  12.   {
  13.     public TSplashForm()
  14.     {
  15.       InitializeComponent();
  16.     }
  17.   }
  18.   public partial class SplashUnit
  19.   {
  20.     public static TSplashForm SplashForm { get; set; } = new TSplashForm();
  21.   }
  22. }

• .dfm file structure conversion:

  Delphi

  1. object SplashForm: TSplashForm
  2.   Left = 204
  3.   Top = 123
  4.   AutoScroll = False
  5.   ActiveControl = Panel1
  6.   BorderIcons = []
  7.   BorderStyle = bsNone
  8.   ClientHeight = 178
  9.   ClientWidth = 168
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   Position = poScreenCenter
  16.   TextHeight = 13
  17.   object Panel1: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 168
  21.     Height = 178
  22.     Align = alClient
  23.     BevelInner = bvLowered
  24.     Color = clSilver
  25.     TabOrder = 0
  26.     object Label3: TLabel
  27.       Left = 23
  28.       Top = 125
  29.       Width = 123
  30.       Height = 19
  31.       Caption = 'Marine Adventures'
  32.       Font.Color = clBlack
  33.       Font.Height = -16
  34.       Font.Name = 'Times New Roman'
  35.       Font.Style = [fsItalic, fsUnderline]
  36.       ParentFont = False
  37.     end
  38.     object Bevel1: TBevel
  39.       Left = 10
  40.       Top = 150
  41.       Width = 147
  42.       Height = 2
  43.       Style = bsRaised
  44.     end
  45.     object Label1: TLabel
  46.       Left = 60
  47.       Top = 158
  48.       Width = 47
  49.       Height = 13
  50.       Caption = 'Loading...'
  51.     end
  52.     object Image1: TImage
  53.       Left = 40
  54.       Top = 11
  55.       Width = 87
  56.       Height = 113
  57.       Picture.Data = {
  58.         }
  59.     end
  60.   end
  61. end

  → C# WinForms

  1. namespace Splash
  2. {
  3.   partial class TSplashForm
  4.   {
  5.     /// <summary>
  6.     /// Required designer variable.
  7.     /// </summary>
  8.     private System.ComponentModel.IContainer components = null;
  9.  
  10.     /// <summary>
  11.     /// Clean up any resources being used.
  12.     /// </summary>
  13.     /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
  14.     protected override void Dispose(bool disposing)
  15.     {
  16.       if (disposing && (components != null))
  17.       {
  18.         components.Dispose();
  19.       }
  20.  
  21.       base.Dispose(disposing);
  22.     }
  23.  
  24.  
  25.     #region Windows Form Designer generated code
  26.     /// <summary>
  27.     /// Required method for Designer support - do not modify
  28.     /// the contents of this method with the code editor.
  29.     /// </summary>
  30.  
  31.     private void InitializeComponent()
  32.     {
  33.             System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(TSplashForm));
  34.             this.Panel1 = new System.Windows.Forms.Panel();
  35.             this.Label3 = new System.Windows.Forms.Label();
  36.             this.Bevel1 = new System.Windows.Forms.Panel();
  37.             this.Label1 = new System.Windows.Forms.Label();
  38.             this.Image1 = new System.Windows.Forms.PictureBox();
  39.             this.Panel1.SuspendLayout();
  40.             ((System.ComponentModel.ISupportInitialize)(this.Image1)).BeginInit();
  41.             this.SuspendLayout();
  42.             //
  43.             // Panel1
  44.             //
  45.             this.Panel1.Controls.Add(this.Label3);
  46.             this.Panel1.Controls.Add(this.Bevel1);
  47.             this.Panel1.Controls.Add(this.Label1);
  48.             this.Panel1.Controls.Add(this.Image1);
  49.             this.Panel1.Location = new System.Drawing.Point(0, 0);
  50.             this.Panel1.Name = "Panel1";
  51.             this.Panel1.Size = new System.Drawing.Size(168, 178);
  52.             this.Panel1.TabIndex = 0;
  53.             //
  54.             // Label3
  55.             //
  56.             this.Label3.AutoSize = true;
  57.             this.Label3.Font = new System.Drawing.Font("Times New Roman", 8.25F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Italic | System.Drawing.FontStyle.Underline))));
  58.             this.Label3.ForeColor = System.Drawing.Color.Black;
  59.             this.Label3.Location = new System.Drawing.Point(23, 125);
  60.             this.Label3.Name = "Label3";
  61.             this.Label3.Size = new System.Drawing.Size(94, 14);
  62.             this.Label3.TabIndex = 0;
  63.             this.Label3.Text = "Marine Adventures";
  64.             //
  65.             // Bevel1
  66.             //
  67.             this.Bevel1.Location = new System.Drawing.Point(10, 150);
  68.             this.Bevel1.Name = "Bevel1";
  69.             this.Bevel1.Size = new System.Drawing.Size(147, 2);
  70.             this.Bevel1.TabIndex = 1;
  71.             //
  72.             // Label1
  73.             //
  74.             this.Label1.AutoSize = true;
  75.             this.Label1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8.25F);
  76.             this.Label1.Location = new System.Drawing.Point(60, 158);
  77.             this.Label1.Name = "Label1";
  78.             this.Label1.Size = new System.Drawing.Size(54, 13);
  79.             this.Label1.TabIndex = 2;
  80.             this.Label1.Text = "Loading...";
  81.             //
  82.             // Image1
  83.             //
  84.             this.Image1.Image = ((System.Drawing.Image)(resources.GetObject("Image1.Image")));
  85.             this.Image1.Location = new System.Drawing.Point(40, 11);
  86.             this.Image1.Name = "Image1";
  87.             this.Image1.Size = new System.Drawing.Size(87, 113);
  88.             this.Image1.TabIndex = 3;
  89.             this.Image1.TabStop = false;
  90.             //
  91.             // TSplashForm
  92.             //
  93.             this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
  94.             this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
  95.             this.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None;
  96.             this.ClientSize = new System.Drawing.Size(169, 179);
  97.             this.Controls.Add(this.Panel1);
  98.             this.ForeColor = System.Drawing.Color.Black;
  99.             this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
  100.             this.Name = "TSplashForm";
  101.             this.Padding = new System.Windows.Forms.Padding(204, 123, 0, 0);
  102.             this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
  103.             this.Text = "SplashForm";
  104.             this.Panel1.ResumeLayout(false);
  105.             this.Panel1.PerformLayout();
  106.             ((System.ComponentModel.ISupportInitialize)(this.Image1)).EndInit();
  107.             this.ResumeLayout(false);
  108.  
  109.     }
  110.  
  111.     #endregion
  112.  
  113.     private System.Windows.Forms.Panel Panel1;
  114.     private System.Windows.Forms.Label Label3;
  115.     private System.Windows.Forms.Panel Bevel1;
  116.     private System.Windows.Forms.Label Label1;
  117.     private System.Windows.Forms.PictureBox Image1;
  118.  
  119.  
  120.   }
  121. }

• If statement conversion:

  Delphi

  1. if FromEdit.Text = '' then Result := 0
  2.   else Result := StrToDate(FromEdit.Text);

  → C# WinForms

  1. if (FromEdit.Text == string.Empty)
  2.       {
  3.         getFromDate_result = DateTime.FromOADate(0);
  4.             }
  5.       else
  6.       {
  7.         getFromDate_result = Convert.ToDateTime(FromEdit.Text);
  8.       }

• For statement conversion:

  Delphi

  1. for I := 0 to Application.ComponentCount - 1 do
  2.   begin
  3.     if Application.Components[I] is TForm then
  4.     begin
  5.       F := TForm(Application.Components[I]);
  6.       if (F <> Self) and (F.Visible) then F.Close;
  7.     end;
  8.   end;

  → C# WinForms

  1. for (I = 0; I <= this.Controls.Count - 1; I++)
  2.             {
  3.                 if (this.Controls[I] is Form)
  4.                 {
  5.                     F = ((Form)(this.Controls[I] as object));
  6.  
  7.                     if ((F != this) && (F.Visible))
  8.                     {
  9.                         F.Close();
  10.                     }
  11.                 }
  12.             }

• While statement conversion:

  Delphi

  1. while not Items.EOF do
  2. Items.Delete;

  → C# WinForms

  1. while (!Items.EOF)
  2.                 {
  3.                     Items.Delete();
  4.                 }

• Try catch statement conversion:

  Delphi

  1. try
  2.     Items.First;
  3.   finally
  4.     DeletingItems := False;
  5.   end;

  → C# WinForms

  1. try
  2.             {
  3.                 Items.MoveFirst();
  4.             }
  5.             finally
  6.             {
  7.                 DeletingItems = false;
  8.             }