デルファイ抽象関数は

Question

が、私は機能

function GetFieldName(FieldIndex: Integer; FieldName: PChar; 
    Len: Integer): Integer; virtual; abstract; 

を持っていると私は一時的にユニコードのための私のデータベース接続を橋渡しします

function GetFieldNameA(FieldIndex: Integer; FieldName: PAnsiChar; 
    Len: Integer): Integer; 

を追加しようとしていると言う基本クラスよりも、別の名前で呼び出します。

GetFieldNameを引き続き呼び出し、抽象化しないようにして、GetFieldNameAを呼び出すためのビットキャストを行います。これは最初のGetFieldNameの技術的に抽象的なバージョンになります。 （私は基本クラスを全く変更したくない）

外部参照の 'name'キーワードを追加して、サブクラスに別の名前を持つ抽象関数を持たせる方法はありますか？

function GetFieldName(FieldIndex: Integer; FieldName: PChar; 
    Len: Integer): Integer; 
function GetFieldNameA(FieldIndex: Integer; FieldName: PAnsiChar; 
    Len: Integer): Integer name 'GetFieldName Virtual Abstract'; 

Answer 1

いいえ、あなたはあなたが提案しているものを行うことはできません。私が終わる想像してる何

のようなものです。

代わりにGetFieldNameを上書きしてください。 GetFieldNameAを呼び出す前に、PCharをPAnsiCharに変換してください（必要な場合）。後者は、実際にはoverrideである必要はありません。これは、通常の非仮想関数とすることができます。

この提案の残念な部分は、ごとにすべて子孫クラスで行う必要があるということです。代わりに、仮想抽象GetFieldNameAを基本クラスに追加してから、すべての子孫を変更してGetFieldNameの代わりにその子孫を上書きします。基本クラスのGetFieldNameを変更してGetFieldNameAを呼び出します。しかし、基本クラスを変更できない場合、それは非スターターです。

Answer 2

あなたの質問を正しく理解していれば、置き換えられた基本クラスを注入してDelphiを騙すことができます。

GetFieldNameがTClass1と呼ばれ、元の宣言しているクラスは、その後、Unit1は（PASまたはDCU）で宣言された場合：

• を（TrickUnit.pasを）新しいユニットを作ります。 TrickUnit.pasで
• は、元のクラスと同じ名前のクラスを宣言し、古い用途セクションのクラス（TrickUnit.pasがUnit1はを使用しています）TrickUnit.pasで
• のユニットを追加し、それを継承させます元のクラスtype TClass1 = class(Unit1.TClass1)
• カスタム実装を追加してください。
• ちょうど限りTrickUnit.pasが使用するセクションの端部にあるように、元のクラス

を期待する各ユニットの使用部（インターフェース部）の端であなたのすべてをTrickClass.pas を追加子孫はあなたの置き換えられたクラスを継承して終了するでしょう。using ......, TrickUnit