參考資料： http://dotnet.borland.com/babelcode/ http://bdn.borland.com/article/0,1410,32338,00.html Delphi 2005範例下載： (Using the Borland WebService BabelCode)  http://www.dpexperte.de/articles/d3k/d2005_babelcode/BabelCodeClient.zip    本文是C#寫法...     網海無涯，唯學是岸！ 發表人 - qoo1234 於 2005/08/20 09:11:43

附加檔案：77098_CsharpToDelphi.zip

Delphi 7 範例:匯入wsdl檔後，產生..converter.pas檔 操作converter單元程式碼如下：  

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,converter, StdCtrls, ComCtrls, InvokeRegistry, Rio,
  SOAPHTTPClient;    type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit; //放C#程式碼
    Button1: TButton;
    RichEdit2: TRichEdit; //Delphi.NET程式碼轉換結果
    HTTPRIO1: THTTPRIO;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit2.Text:=(HTTPRIO1 as BabelCodeSoap).CSharpToDelphi(RichEdit1.Text);  
end;    end.
 

網海無涯，唯學是岸！ 發表人 - qoo1234 於 2005/08/20 23:00:41

 
測試後的結論：
C#轉譯Delphi.NET還有一段路要走，
但目前也可以當作人工翻譯參考。    1.正常Delphi.NET程式碼：
program Project1;
{$APPTYPE CONSOLE}    var
  strArray  : System.Array;
  index     : Integer;    begin
  // Create a 5 element single dimension array of Strings
  strArray := System.Array.CreateInstance(TypeOf(String), 5);      // Fill out the array in sorted sequence
  // (We could have used the static 'Sort' method to do the sort
  strArray.SetValue('ABC', 0);
  strArray.SetValue('DEF', 1);
  strArray.SetValue('GHI', 2);
  strArray.SetValue('JKL', 3);
  strArray.SetValue('MNO', 4);      // Try to find 'GHI'
  index := System.Array.BinarySearch(strArray, 'GHI');      Console.WriteLine('The index of ''GHI'' is {0}', index.ToString);      // Try to find 'GHZ'
  index := System.Array.BinarySearch(strArray, 'GHZ');      Console.WriteLine('The index of ''GHZ'' is {0}', index.ToString);      // Try to find 'ZZZ'
  index := System.Array.BinarySearch(strArray, 'ZZZ');      Console.WriteLine('The index of ''ZZZ'' is {0}', index.ToString);      Console.ReadLine;
end.    2.人工翻譯為C#程式碼結果：
using System;
 
namespace myConsole
{
 class MainClass
 {
  public static void Main(string[] args)
  {
   string[] strArray = new string[5];
   
   strArray.SetValue("ABC", 0);
   strArray.SetValue("DEF", 1);
   strArray.SetValue("GHI", 2);
   strArray.SetValue("JKL", 3);
   strArray.SetValue("MNO", 4);   
   
   int index= System.Array.BinarySearch(strArray, "GHI");
   Console.WriteLine("The index of 'GHI' is {0}", index.ToString());
   
   index = System.Array.BinarySearch(strArray, "GHZ");
   Console.WriteLine("The index of 'GHZ' is {0}", index.ToString());
   
   index = System.Array.BinarySearch(strArray, "ZZZ");   
   Console.WriteLine("The index of 'ZZZ' is {0}", index.ToString());
   Console.ReadLine();
  }
 }
}    3.本軟體透過線上轉譯Delphi.NET程式碼結果：
//------------------------------------------------------------------------------
// 
//     This code was generated by a tool.
//     Runtime Version: 1.1.4322.573
//
//     Changes to this file may cause incorrect behavior and will be lost if 
//     the code is regenerated.
// 
//------------------------------------------------------------------------------    unit myConsole;    interface    type
  TArrayOfString = array of string;
  MainClass = class
  public
    class procedure Main(args: TArrayOfString); virtual;static; 
  end;
  
implementation    {$AUTOBOX ON}
{$HINTS OFF}
{$WARNINGS OFF}    class procedure MainClass.Main(args: TArrayOfString);
type
  TArrayOfArrayOfString = array of array of string;
var
  index: Integer;
  strArray: TArrayOfString;
begin
  strArray := New(TArrayOfArrayOfString, 5);
  strArray.SetValue('ABC', 0);
  strArray.SetValue('DEF', 1);
  strArray.SetValue('GHI', 2);
  strArray.SetValue('JKL', 3);
  strArray.SetValue('MNO', 4);
  index := System.Array.BinarySearch(strArray, 'GHI');
  Console.WriteLine('The index of ''GHI'' is {0}', index.ToString);
  index := System.Array.BinarySearch(strArray, 'GHZ');
  Console.WriteLine('The index of ''GHZ'' is {0}', index.ToString);
  index := System.Array.BinarySearch(strArray, 'ZZZ');
  Console.WriteLine('The index of ''ZZZ'' is {0}', index.ToString);
  Console.ReadLine;
end;    end.    

網海無涯，唯學是岸！