Umbenennungen von Interface-Identifiern in Impl.

[RSE]

Folgendes wird vom Compiler akzeptiert und scheint zu funktionieren. Ist es auch korrekt, oder passiert da schlimmes?

Code: Alles auswählen

IMPlayer = interface
    procedure Log(ALogType: TLogType; ALogSubType: TLogSubType; Args: PPChar); {$ifdef windows} stdcall; {$else} cdecl; {$endif}
  end;
 
  TMPlayer = class(TObject,IMPlayer)
  private
    procedure ExtLog(ALogType: TLogType; ALogSubType: TLogSubType; Args: PPChar); {$ifdef windows} stdcall; {$else} cdecl; {$endif}
    procedure IMPlayer.Log = ExtLog;
  public
    procedure Log(ALogType: TLogType; ALogSubType: TLogSubType; Args: array of String);
  end;