Delphi-Quellcode:
type
MyRec = packed record
public
procedure DoJob(const AValue: Integer = -1; const BValue: DOUBLE = 1.23);
end;
var
Form15: TForm15;
implementation
{$R *.dfm}
procedure MyRec.DoJob(const AValue: Integer = -1; const BValue: Double = 1.23);
begin
//
end;
Habe es gerade mal ausprobiert und es compiliert ohne einen Fehler zu werfen.