请教高手：unit2 如何调用 unit1中的函数呀？

[yan32711]

如题：

[zshsuming]

unit Unit2;

interface
uses dialogs;

procedure hello;

implementation

procedure hello;
begin
ShowMessage('hello world');
end;

end.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
hello;
end;

end.

[bewild]

楼上真详细

[米的向日葵]

楼上的楼上真详细

[hljiayou]

如果是系统的单元文件，直接在uses后面添加

如果是自定义的单元文件，需要互相使用的话，就在implementation之后uses添加一下要使用的单元文件名

[yan32711]

我在unit1的public中声明unit2中要调用的函数TexToBuf后，编译有eror：unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀？

[msky850917]

unit1里把函数定义为public类型的
unit2里 use unit1
然后form2.函数 的形式调用unit1里面的函数

[yan32711]

请教：我在unit1的public中声明unit2中要调用的函数TexToBuf后，编译有eror：unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀？

[贝隆]

文件-》Use Unit

[zz1001]

[Quote=引用 8 楼 zshsuming 的回复:]
unit Unit2;

interface
uses dialogs;

procedure hello;

implementation

procedure hello;
begin
  ShowMessage('hello world');
end;

end.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
hello;
end;

end.

[/Quote]
支持,写得经典

[yan32711]

谢谢大家哈，我试试。

[火龙岛主]

unit2.function1(10)

[hljiayou]

[Quote=引用 14 楼 yan32711 的回复:]
请教：我在unit1的public中声明unit2中要调用的函数TexToBuf后，编译有eror：unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀？
[/Quote]

在你的函数前面加上TForm1.

[hljiayou]

[Quote=引用 17 楼 yan32711 的回复:]
8楼写的似乎是uint1调用uint2，而非uint2调用uint1？是这样吧？
[/Quote]

反过来用就可以了。

[macchen1224]

你好，請先use unit2，然後使用請用form2.，即可參考到你要的form2內的東西了。

[yan32711]

8楼写的似乎是uint1调用uint2，而非uint2调用uint1？是这样吧？

[yan32711]

这么看来，是不需要在public中声明函数了，只要在需要调用的unit中写上used+调用的unit即可？

[hljiayou]

[Quote=引用 21 楼 yan32711 的回复:]
这么看来，是不需要在public中声明函数了，只要在需要调用的unit中写上used+调用的unit即可？
[/Quote]

差不多，在要调用的unit中的implementation下写uses + 调用的unit名字，就可以调用其中的属性、方法

[hujun_zero]

这个帖子也顶得忒高了

[zshsuming]

楼主，你这样学习态度可不行啊，uint1和uint2只不过是个名称，你应该在大学给你讲解和指导的同时，进行思考，不明白的地方先去找书去看看，然后再来问。

[ok1411]

孺子可教也
慢慢来－ －