☪️ 🙍🏿 ♾ アプリケーションの移行-コードサンプル 🎶 👎 📁

この記事は、一方で、私の最初の記事「アプリケーションの移行-神話と現実」のもともと考えられていた続きであり、他方で、クラドラフチャニー、ヴラドシャリコフ、レイア、ベレスが記事で尋ねたコメントのいくつかに対する答えです。

コードをDelphiからCに変換する＃

まず、DelphiコードをC＃コードに変換する例を示します。

Delphiコード

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.

翻訳後、コードは次のようになります。

C＃コード

 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; } } } }

はい。移行ライブラリを接続してコンパイルすると、C＃コードが機能します。

より複雑で興味深い場所があります-たとえば、名前付きで、つまりObj.Items [インデックス]の形式でアクセスできるインデックスを使用したプロパティの実装（Delphiを知っている場合-それらは理解します）が、現在このコードは手元にありません。