123456789101112131415161718192021222324252627 |
- { %fail }
- {$ifdef fpc}
- {$mode delphi}
- {$endif}
- type TBla=class
- bla : integer;
- procedure Bla;
- procedure BlaBla;
- end;
- procedure TBla.Bla;
- begin
- end;
- procedure TBla.BlaBla;
- procedure Bla;
- begin
- end;
- begin
- Bla;
- end;
- begin
- end.
|