Advertisement
pmcgee

With and Uses do the same thing ?

Jun 30th, 2022
1,837
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.56 KB | None | 0 0
  1. program Project1;
  2. {$APPTYPE CONSOLE}
  3.  
  4. uses
  5.   System.SysUtils
  6.   , Unit2 in 'Unit2.pas'
  7.   , Unit1 in 'Unit1.pas'
  8.   ;
  9.  
  10. begin
  11.   test_fn;
  12.   readln;
  13. end.
  14.  
  15.  //  --  --  --  --  --  --  --  --  --  --  --
  16.  
  17. unit Unit1;
  18.  
  19. interface  
  20.     procedure  test_fn;
  21.    
  22. implementation
  23.     procedure  test_fn;
  24.         begin  writeln('unit 1');  end;          
  25. end.
  26.  
  27.  //  --  --  --  --  --  --  --  --  --  --  --
  28.  
  29. unit Unit2;
  30.  
  31. interface  
  32.     procedure  test_fn;
  33.    
  34. implementation
  35.     procedure  test_fn;
  36.         begin  writeln('unit 2');  end;
  37. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement