社区
语言基础/算法/系统设计
帖子详情
请教高手:unit2 如何调用 unit1中的函数呀?
yan32711
2009-07-26 08:50:52
如题:
...全文
159
25
打赏
收藏
请教高手:unit2 如何调用 unit1中的函数呀?
如题:
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
25 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ok1411
2009-07-30
打赏
举报
回复
孺子可教也
慢慢来- -
zshsuming
2009-07-29
打赏
举报
回复
楼主,你这样学习态度可不行啊,uint1和uint2只不过是个名称,你应该在大学给你讲解和指导的同时,进行思考,不明白的地方先去找书去看看,然后再来问。
hujun_zero
2009-07-28
打赏
举报
回复
这个帖子也顶得忒高了
hljiayou
2009-07-28
打赏
举报
回复
[Quote=引用 21 楼 yan32711 的回复:]
这么看来,是不需要在public中声明函数了,只要在需要调用的unit中写上used+调用的unit即可?
[/Quote]
差不多,在要调用的unit中的implementation下写uses + 调用的unit名字,就可以调用其中的属性、方法
yan32711
2009-07-28
打赏
举报
回复
这么看来,是不需要在public中声明函数了,只要在需要调用的unit中写上used+调用的unit即可?
yan32711
2009-07-28
打赏
举报
回复
8楼写的似乎是uint1调用uint2,而非uint2调用uint1?是这样吧?
macchen1224
2009-07-28
打赏
举报
回复
你好,請先use unit2,然後使用請用form2.,即可參考到你要的form2內的東西了。
hljiayou
2009-07-28
打赏
举报
回复
[Quote=引用 17 楼 yan32711 的回复:]
8楼写的似乎是uint1调用uint2,而非uint2调用uint1?是这样吧?
[/Quote]
反过来用就可以了。
hljiayou
2009-07-28
打赏
举报
回复
[Quote=引用 14 楼 yan32711 的回复:]
请教:我在unit1的public中声明unit2中要调用的函数TexToBuf后,编译有eror:unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀?
[/Quote]
在你的函数前面加上TForm1.
火龙岛主
2009-07-27
打赏
举报
回复
unit2.function1(10)
yan32711
2009-07-27
打赏
举报
回复
谢谢大家哈,我试试。
zz1001
2009-07-27
打赏
举报
回复
[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]
支持,写得经典
贝隆
2009-07-27
打赏
举报
回复
文件-》Use Unit
yan32711
2009-07-27
打赏
举报
回复
请教:我在unit1的public中声明unit2中要调用的函数TexToBuf后,编译有eror:unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀?
msky850917
2009-07-27
打赏
举报
回复
unit1里把函数定义为public类型的
unit2里 use unit1
然后form2.函数 的形式调用unit1里面的函数
yan32711
2009-07-27
打赏
举报
回复
我在unit1的public中声明unit2中要调用的函数TexToBuf后,编译有eror:unsatisfied forword or extrnal declaration:'TFORM1.TexToBuf'.可是我并没有找到其他地方的声明。这是怎么回事呀?
hljiayou
2009-07-27
打赏
举报
回复
如果是系统的单元文件,直接在uses后面添加
如果是自定义的单元文件,需要互相使用的话,就在implementation之后uses添加一下要使用的单元文件名
米的向日葵
2009-07-27
打赏
举报
回复
楼上的楼上真详细
bewild
2009-07-27
打赏
举报
回复
楼上真详细
zshsuming
2009-07-27
打赏
举报
回复
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.
加载更多回复(5)
怎么拦截系统
函数
主 题: 怎么拦截系统
函数
?(超高度难题!) 在Dos下,我们可以拦截
中
断,用自己的处理替换系统
中
断,然后
调用
原来的
中
断,在Windows
中
,没有了
中
断,只有
函数
,那么我们如何来拦截系统的
函数
,然后我们的
函数
又
调用
原来的系统
函数
呢?比如说系统有一个GetSystemDirectory()
函数
,我想用我自己的
函数
替换它,经过我的
函数
MyGetSystemDirectory()进行处理,然
matlab sift
函数
,请问sift
函数
的用法
本书例程3.3-6
中
有
调用
sift
函数
,我想应该是MATLAB
函数
内部提供的
函数
吧?但是却运行出错,报错如下>> mosaicTest'siftWin32' 不是内部或外部命令,也不是可运行的程序或批处理文件。Error using sift (line 53)Invalid keypoint file beginning.Error in siftMatch (line 18)[de...
2021/11月笔记:unit test复习6(邮件自动发送2)---解决附件为空2022.4修改
解决问题:发送带附件的邮件,下载后打开,报告空白!! 如下: 原出错代码如下: 1. run.py文件: import unittest,HTMLTestRunner,time from utils.log_cn import mkdir from utils.TestAutoEmail import SendMailAttach from time import sleep suite=unittest.defaultTestLoader.discover('./case',pattern.
转载:
请教
:c#
中
实现图像缩放?
转载自:http://topic.csdn.net/t/20060504/12/4729916.html
请教
:c#
中
实现图像缩放?楼主asweisun(烟薄荷)2006-05-04 12:43:27 在 .NET技术 / .NET Framework 提问功能: 在pictureBox
中
点击鼠标后,如何将pictureBox
中
图片放大,缩小,平移? 我对net的类库不是
关于Unity
中
OnTriggerStay2D方法不触发的问题
最近自己在和同学合作做一个小项目,其
中
本人负责的功能之一就是控制主角拾取东西,并将物品数量变化显示在背包里,由于没有做过这个功能。就先在自己之前做的一些练习品里面练手。 我的思路就是,关于要拾取的物品(我实验用的番茄),我在主角Ruby(素材是unity商店里的ruby's advantage)控制代码
中
定义一个整型变量,然后再写一个方法来控制这个番茄数量的变化。东西是在一个箱子上面拿的,就在箱子上设置了一个碰撞器,然后在箱子上面写这个OnTriggerStay2D
函数
,当ruby移动到箱子上时,在这个.
语言基础/算法/系统设计
16,747
社区成员
33,239
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章