标题:[求助]关于函数调用
取消只看楼主
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
 问题点数:0 回复次数:5 
[求助]关于函数调用

我在unit2定义了一个函数 在unit1里调用不了
uses里已经添加unit2
还需要干什么才能调用了
指点下

搜索更多相关主题的帖子: 函数 定义 uses unit 
2006-04-12 23:29
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
得分:0 

我传上来了 下下去帮我看看
我还只懂一点皮毛 对于面向对象语言我一点不懂

[URL=http://lovemj.aa.topzj.com/viewthread.php?tid=114928&sid=FbncQj]http://lovemj.aa.topzj.com/viewthread.php?tid=114928&sid=FbncQj[/URL]

我的论坛http://www.lovemj.91.tc 有空来玩
2006-04-13 11:59
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
得分:0 

谁帮我看看啊


我的论坛http://www.lovemj.91.tc 有空来玩
2006-04-14 11:51
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
得分:0 

我把相关代码发上来 帮我看看
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
i:=7;
edit1.text:=change(i);
end;
end.

unit Unit2;
interface
uses
SysUtils,Windows;
implementation
function change(x:integer):string;
begin
change:=inttostr(x);
end;
end.
我照着写了个 大概能反映我的问题吧 说change函数没声明


我的论坛http://www.lovemj.91.tc 有空来玩
2006-04-14 22:15
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
得分:0 
怎么声明啊  写个大概代码行不 我只想在unit2中定义一些函数然后调用他 不知道怎么声明啊

我的论坛http://www.lovemj.91.tc 有空来玩
2006-04-15 11:01
tendzzss
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-10
得分:0 
可以了  非常感谢  

我的论坛http://www.lovemj.91.tc 有空来玩
2006-04-15 13:20



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-57169-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.205636 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved