delphi简单的问题?
type
myclass=class //定义一个类
procedure mypro (var x:integer);//创建过程方法
function myfun (var x:integer):integer;//创建函数方法
end;
function myclass.myfun(var x:integer):integer;//实例化方法
begin
x:=2;
end;
procedure myclass.mypro(var x:integer);
begin
x:=x+2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
mycls:myclass;
begin
mycls:=myclass.Create; //创建对象
i:=6;
mycls.myfun(i); //调用方法
showmessage(inttostr(i));
mycls.Free;
end;
end.
--------------------
i:=6;
mycls.myfun(i); //调用方法
showmessage(inttostr(i));
上面那个mycls.myfun(i)调用myfun方法 那个i是什么意思?
传值还是?
而且输出的是i不是x 但是为什么结果是x的值
var传址
你把i传址给myfun了。所以改了i的值。就像你给搬家公司你家地址了,让他们进入你们家搬东西。而不是你另买一份你的家当然后搬到新家里去。
x代表传进去的那个i,你可以把那个x改成任何合法的名字,比如i,ii,jjjj。这个我实在不知道怎么解释了,只能意会了
你发一分的帖子是什么意思?我回这个帖子不是为了这一分。大家如果回复你也不是为了这一分。
你还不如发零分贴。然后说你没分了。大家能理解你。
你这个一分,在我看来相当不尊重想给你解惑的人。就好像说,来啊来啊,给我解决这个问题,我赏你一分钱哦。还不快点?
你出分,别人回答问题,
相关问答:
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧,一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
delphi 异步线程怎么怎么实现?
请各位大佬帮忙!
最好有个实例!
多谢
你不同步就是异步了,还写啥
默认情况下,线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
我想一个 memo 两个button 一个edit
memo中导入文本 然后点击一次 button edit1.txt 自动添加一行memo
再次点击 添加memo下一行文本 如何实现
我的代码是
==
procedure TForm1.Button2C ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......