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

   
  var 	CanClose: Boolean;
  		CustNo: Double;
  		DBPath: string;
  		Key: Char;
  		I: Integer;
  		RSCON: TIniFile;
   

  → C# WinForms

   
  bool CanClose;
  double CustNo;
  string Dbpath;
  char Key;
  int I;
  IniFile RSCON = null; //class IniFile implemented in AdditionalClasses
   

• .pas file structure conversion:

  Delphi

   
  unit Splash;
   
  interface
   
  uses
    SysUtils, Windows, Messages, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls, ExtCtrls;
   
  type
    TSplashForm = class(TForm)
      Panel1: TPanel;
      Label3: TLabel;
      Bevel1: TBevel;
      Label1: TLabel;
      Image1: TImage;
    end;
   
  var
    SplashForm: TSplashForm;
   
  implementation
   
  {$R *.dfm}
   
  end.
   

  → C# WinForms

   
  using System;
  using System.IO;
  using System.Data;
  using System.Drawing;
  using System.Windows;
  using System.Windows.Forms;
  using System.Collections.Generic;
   
  namespace Splash
  {
  	public partial class TSplashForm : Form
  	{
  		public TSplashForm()
  		{
  			InitializeComponent();
  		}
  	}
  	public partial class SplashUnit
  	{
  		public static TSplashForm SplashForm { get; set; } = new TSplashForm();
  	}
  }
   

• .dfm file structure conversion:

  Delphi

   
  object SplashForm: TSplashForm
    Left = 204
    Top = 123
    AutoScroll = False
    ActiveControl = Panel1
    BorderIcons = []
    BorderStyle = bsNone
    ClientHeight = 178
    ClientWidth = 168
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    PixelsPerInch = 96
    Position = poScreenCenter
    TextHeight = 13
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 168
      Height = 178
      Align = alClient
      BevelInner = bvLowered
      Color = clSilver
      TabOrder = 0
      object Label3: TLabel
        Left = 23
        Top = 125
        Width = 123
        Height = 19
        Caption = 'Marine Adventures'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Times New Roman'
        Font.Style = [fsItalic, fsUnderline]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 10
        Top = 150
        Width = 147
        Height = 2
        Style = bsRaised
      end
      object Label1: TLabel
        Left = 60
        Top = 158
        Width = 47
        Height = 13
        Caption = 'Loading...'
      end
      object Image1: TImage
        Left = 40
        Top = 11
        Width = 87
        Height = 113
        Picture.Data = {
          }
      end
    end
  end
   

  → C# WinForms

   
  namespace Splash
  {
  	partial class TSplashForm
  	{
  		/// <summary>
  		/// Required designer variable.
  		/// </summary>
  		private System.ComponentModel.IContainer components = null;
   
  		/// <summary>
  		/// Clean up any resources being used.
  		/// </summary>
  		/// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
  		protected override void Dispose(bool disposing)
  		{
  			if (disposing && (components != null))
  			{
  				components.Dispose();
  			}
   
  			base.Dispose(disposing);
  		}
   
   
  		#region Windows Form Designer generated code
  		/// <summary>
  		/// Required method for Designer support - do not modify
  		/// the contents of this method with the code editor.
  		/// </summary>
   
  		private void InitializeComponent()
  		{
              System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(TSplashForm));
              this.Panel1 = new System.Windows.Forms.Panel();
              this.Label3 = new System.Windows.Forms.Label();
              this.Bevel1 = new System.Windows.Forms.Panel();
              this.Label1 = new System.Windows.Forms.Label();
              this.Image1 = new System.Windows.Forms.PictureBox();
              this.Panel1.SuspendLayout();
              ((System.ComponentModel.ISupportInitialize)(this.Image1)).BeginInit();
              this.SuspendLayout();
              // 
              // Panel1
              // 
              this.Panel1.Controls.Add(this.Label3);
              this.Panel1.Controls.Add(this.Bevel1);
              this.Panel1.Controls.Add(this.Label1);
              this.Panel1.Controls.Add(this.Image1);
              this.Panel1.Location = new System.Drawing.Point(0, 0);
              this.Panel1.Name = "Panel1";
              this.Panel1.Size = new System.Drawing.Size(168, 178);
              this.Panel1.TabIndex = 0;
              // 
              // Label3
              // 
              this.Label3.AutoSize = true;
              this.Label3.Font = new System.Drawing.Font("Times New Roman", 8.25F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Italic | System.Drawing.FontStyle.Underline))));
              this.Label3.ForeColor = System.Drawing.Color.Black;
              this.Label3.Location = new System.Drawing.Point(23, 125);
              this.Label3.Name = "Label3";
              this.Label3.Size = new System.Drawing.Size(94, 14);
              this.Label3.TabIndex = 0;
              this.Label3.Text = "Marine Adventures";
              // 
              // Bevel1
              // 
              this.Bevel1.Location = new System.Drawing.Point(10, 150);
              this.Bevel1.Name = "Bevel1";
              this.Bevel1.Size = new System.Drawing.Size(147, 2);
              this.Bevel1.TabIndex = 1;
              // 
              // Label1
              // 
              this.Label1.AutoSize = true;
              this.Label1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8.25F);
              this.Label1.Location = new System.Drawing.Point(60, 158);
              this.Label1.Name = "Label1";
              this.Label1.Size = new System.Drawing.Size(54, 13);
              this.Label1.TabIndex = 2;
              this.Label1.Text = "Loading...";
              // 
              // Image1
              // 
              this.Image1.Image = ((System.Drawing.Image)(resources.GetObject("Image1.Image")));
              this.Image1.Location = new System.Drawing.Point(40, 11);
              this.Image1.Name = "Image1";
              this.Image1.Size = new System.Drawing.Size(87, 113);
              this.Image1.TabIndex = 3;
              this.Image1.TabStop = false;
              // 
              // TSplashForm
              // 
              this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
              this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
              this.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None;
              this.ClientSize = new System.Drawing.Size(169, 179);
              this.Controls.Add(this.Panel1);
              this.ForeColor = System.Drawing.Color.Black;
              this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
              this.Name = "TSplashForm";
              this.Padding = new System.Windows.Forms.Padding(204, 123, 0, 0);
              this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
              this.Text = "SplashForm";
              this.Panel1.ResumeLayout(false);
              this.Panel1.PerformLayout();
              ((System.ComponentModel.ISupportInitialize)(this.Image1)).EndInit();
              this.ResumeLayout(false);
   
  		}
   
  		#endregion
   
  		private System.Windows.Forms.Panel Panel1;
  		private System.Windows.Forms.Label Label3;
  		private System.Windows.Forms.Panel Bevel1;
  		private System.Windows.Forms.Label Label1;
  		private System.Windows.Forms.PictureBox Image1;
   
   
  	}
  }
   

• If statement conversion:

  Delphi

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

  → C# WinForms

   
  			if (FromEdit.Text == string.Empty)
  			{
  				getFromDate_result = DateTime.FromOADate(0);
              }
  			else
  			{
  				getFromDate_result = Convert.ToDateTime(FromEdit.Text);
  			}
   

• For statement conversion:

  Delphi

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

  → C# WinForms

   
              for (I = 0; I <= this.Controls.Count - 1; I++)
              {
                  if (this.Controls[I] is Form)
                  {
                      F = ((Form)(this.Controls[I] as object));
   
                      if ((F != this) && (F.Visible))
                      {
                          F.Close();
                      }
                  }
              }
   

• While statement conversion:

  Delphi

   
  while not Items.EOF do 
  Items.Delete;
   

  → C# WinForms

   
                  while (!Items.EOF)
                  {
                      Items.Delete();
                  }
   

• Try catch statement conversion:

  Delphi

   
    try
      Items.First;
    finally
      DeletingItems := False;
    end;
   

  → C# WinForms

   
              try
              {
                  Items.MoveFirst();
              }
              finally
              {
                  DeletingItems = false;
              }