Миграция приложений — примеры кода

unit Unit3;

interface

type
  TMyClass = class
    _str: string;
    constructor Create;
    procedure setStr(s2: string);
  public
    class var
      FClassField: integer;
  end;
  TMyClassD = class of TMyClass;

procedure DoSomeThing;

implementation

procedure DoSomeThing;
begin

end;
{ TMyClass }

constructor TMyClass.Create;
var
  c: char;
  i: byte;
  cod: integer;
  s: string;
  cls: TMyClassD;
begin
  cls := TMyClass;
  inherited;
  DoSomeThing;
  Val('5', i, cod);
  c := '1';
  s := c;
end;

var
  cls: TMyClass;
  s: string;

procedure TMyClass.setStr(s2: string);
begin
  s2[4] := 'a';
end;

initialization
  cls := TMyClass.Create;
  s := '123456';
  cls._str := s;
  s[3] := '0';
  cls.setStr(s);
end.

using System;
using System.Runtime.InteropServices;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.IO;
using System.Text;
using FastCode.Delphi.Core._System;

namespace Project3 {
    public static partial class Unit3_Module {

        public static void Unit3_Initialization_() {
            cls = TMyClass.Create();
            s = "123456";
            cls._str = s;
            //s[3] = '0';
            s = s.Substring(0, 2) + '0' + s.Substring(3);
            cls.setStr(s);
        }


        public static void DoSomeThing() {
        }


        internal static TMyClass cls;

        internal static string s;
    }
    public partial class TMyClass : TObject {

        public override void __Create__() {
            Char c;
            byte i;
            int cod;
            string s;
            Class_of_TMyClass cls;
            cls = Class_of_TMyClass.Instance;
            base.__Create__();
            Unit3_Module.DoSomeThing();
            System_Module.Val('5'.ToString(), out i, out cod);
            c = '1';
            s = c.ToString();
        }


        public void setStr(string s2) {
            //s2[4] = 'a';
            s2 = s2.Substring(0, 3) + 'a' + s2.Substring(4);
        }


        public static TMyClass Create() {
            TMyClass _instance = new TMyClass();
            _instance.__Create__();
            return _instance;
        }


        public string _str;

        public static int FClassField;
    }
    public partial class Class_of_TMyClass {

        protected Class_of_TMyClass() {
        }


        public TMyClass Create() {
            return TMyClass.Create();
        }


        public static Class_of_TMyClass Instance = new Class_of_TMyClass();

        public int FClassField { get { return TMyClass.FClassField; } set { TMyClass.FClassField = value; } }
    }
}