Liquid Air
5/12/2005 2:21:00 PM
oU IE UOI CI?IOEI, Chapaev?
>> LA> AOIE OU ? AOOCII IIAOIA ?IAEIA?EUO unit1, OI ? IAI AOAOO ?EAIU ?OIEAEE
C> EU IIAOIN
>> LA> SysUtils, II IA AOAOO ?EAIU EU IIAOIN Dialogs
>> eOAI OAI! iI O?EAEO OIIOEI ?OIEAEE EU unit1.
C> oI?II... oI, ?OI OEAUAI Liquid Air, AEOOAIOII AIN ?AOEAIN, II IA AIN aAI?E.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
AA, OU EAE ?OACAA ?OA?, All...
N AUAA IA?N?IAIEA uses ?IOOOE implementation, EICAA IIA IOOII ?IAEIA?EOO IIAOIO,
EIOIOUE OAI ?IAEIA?AAO OAEOYEE IIAOIO. ?OEIAO:
=== unfmMain.pas ===
unit unfmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unExample, StdCtrls;
type
TfmMain = class(TForm)
btnRunExample: TButton;
procedure btnRunExampleClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
procedure MainDoSomething;
implementation
{$R *.dfm}
procedure MainDoSomething;
begin
ShowMessage('in MainDoSomething');
end;
procedure TfmMain.btnRunExampleClick(Sender: TObject);
begin
ExDoSomething;
end;
end.
====================
=== unExample.pas ==
unit unExample;
interface
uses
Dialogs, unfmMain;
procedure ExDoSomething;
implementation
procedure ExDoSomething;
begin
ShowMessage('in ExDoSomething and goto MainDoSomething');
MainDoSomething;
end;
end.
====================
UAAOO IAA IIAOIN ? OAEAEE interface ?UUU?AAO AOOC AOOCA - E ?IUIEEAAO IUEAEA
"[Fatal Error] unfmMain.pas(7): Circular unit reference to 'unfmMain'"
AOIE OA EION AU ? IAIII EU IIAOIAE ?AOAIAOOEOO ?IAEIA?AIEA AOOCICI IIAOIN ? OAEAEA
implementation, OI UOIE IUEAEE IA AOAAO, O.E. interface ?IAUINN OAEAEN, ?EAEIAN
OIAOOOE, A implementation - ?IOOOAIINN