Published Methode und Zeiger

[uligerhardt]

Ich hab's mal kurz getestet. Folgender Code:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils;

{$METHODINFO on}
type
  TMyObject = class(TObject)
  private
  protected
  public
  published
    procedure DoSomething(aPointer: pointer);
  end;

{ TMyObject }

procedure TMyObject.DoSomething(aPointer: pointer);
begin

end;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

liefert unter D2007

Zitat:

[DCC Fehler] Project1.dpr(18): F2084 Interner Fehler: D13360

Unter XE6 kompiliert's kommentarlos.