SHARE
TWEET

Untitled

a guest Aug 25th, 2011 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. UNIT1.pas:
  2. unit Unit1;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  8.   Dialogs,Unit2;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     procedure FormCreate(Sender: TObject);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;
  18.  
  19. var
  20.   Form1: TForm1;
  21.  
  22. implementation
  23.  
  24. {$R *.dfm}
  25.  
  26. procedure TForm1.FormCreate(Sender: TObject);
  27. begin
  28.   form1.Caption:=jacekkw;
  29. end;
  30.  
  31. end.
  32.  
  33. UNIT2.pas:
  34. unit Unit2;
  35.  
  36. interface
  37.  
  38. implementation
  39. function jacekkw:string;
  40. begin
  41.   result:='JacekKw';
  42. end;
  43.  
  44. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top