Legacy curiosity. This compiled fine in Delphi 6. (Spotted at XMLSchema.pas)
Legacy curiosity. This compiled fine in Delphi 6. (Spotted at XMLSchema.pas)
type
TFoo=class
private
procedure Foo(const AClass: TClass; const G: TGuid; const S: String='');
public
procedure Bar;
end;
procedure TFoo.Bar;
begin
Foo(TObject IInterface); // <-- No comma !
end;
procedure TFoo.Foo(const AClass: TClass; const G: TGuid; const S: String='');
begin
end;
type
TFoo=class
private
procedure Foo(const AClass: TClass; const G: TGuid; const S: String='');
public
procedure Bar;
end;
procedure TFoo.Bar;
begin
Foo(TObject IInterface); // <-- No comma !
end;
procedure TFoo.Foo(const AClass: TClass; const G: TGuid; const S: String='');
begin
end;
That had to be some sort of compiler bug in D6?
ReplyDeleteI've seen this before. Known parser thing. Forgot if it still works for all platforms.
ReplyDeleteWas fixed, happens only in D6.
ReplyDeleteAt least D5 was affect as well by the missing comma bug. Also newer compilers have similar bugs like "1 + 1;" compiles (fixed in D2009) or "procedure Foo(A: Integer; B: Integer = 1);" + "Foo(1,);" (fixed in XE5)
ReplyDelete