Delphi语言学习1-Program和Unit

1.单元和程序(Units和Programs)

 1)Programs

 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
program Editor;

  
uses Forms, REAbout, // An "About" box
       REMain;         
// Main form

  
{$R *.res}

  
begin
   Application.Title :
= 'Text Editor';
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;
  
end.
2)Unit
 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
unit Unit1;

interface

uses // List of unit dependencies goes here

implementation

uses // List of unit dependencies goes here

// Implementation of class methods, procedures, and functions goes here

initialization

// Unit initialization code goes here

finalization

// Unit finalization code goes here

end.
2.引用Unit到Unit
 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
uses Forms, Main;

uses 
   Forms,
   Main;

uses Windows, Messages, SysUtils, Strings, Classes, Unit2, MyUnit;
3.引用Unit到program or library
 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
uses 
   Windows, Messages, SysUtils,
   Strings 
in 'C:\Classes\Strings.pas', Classes;
4.Unit间接引用
 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
program Prog;
uses Unit2;
const a = b;
// 

unit Unit2;
interface
uses Unit1;
const b = c;
// 

unit Unit1;
interface
const c = 1;
// 
5.Unit的嵌套引用
 
 
ContractedBlock.gif ExpandedBlockStart.gif Code
unit Unit1;
interface
uses Unit2;
// 

unit Unit2;
interface
uses Unit1;
// 
 
 

 

转载于:https://www.cnblogs.com/wxf82610/archive/2009/02/12/1388994.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值