Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses
- System.SysUtils
- , Unit2 in 'Unit2.pas'
- , Unit1 in 'Unit1.pas'
- ;
- begin
- test_fn;
- readln;
- end.
- // -- -- -- -- -- -- -- -- -- -- --
- unit Unit1;
- interface
- procedure test_fn;
- implementation
- procedure test_fn;
- begin writeln('unit 1'); end;
- end.
- // -- -- -- -- -- -- -- -- -- -- --
- unit Unit2;
- interface
- procedure test_fn;
- implementation
- procedure test_fn;
- begin writeln('unit 2'); end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement