123456789101112131415161718192021222324 |
- { %fail }
- { Source provided for Free Pascal Bug Report 3218 }
- { Submitted by "Vincent Snijders" on 2004-07-20 }
- { e-mail: [email protected] }
- {$mode objfpc}
- uses
- classes;
- type TAProc = procedure(const s: string; o: TObject);
- var AProc: TAProc;
- procedure A(const s: string; c: TComponent);
- begin
- c.Name := s;
- end;
- var
- o1: TObject;
- begin
- AProc:=@A; //this line should generate an error
- o1 := TObject.Create;
- AProc('',o1);
- end.
|