易截截图软件、单文件、免安装、纯绿色、仅160KB

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。这个我实在不知道怎么解释了,只能意会了

你发一分的帖子是什么意思?我回这个帖子不是为了这一分。大家如果回复你也不是为了这一分。
你还不如发零分贴。然后说你没分了。大家能理解你。
你这个一分,在我看来相当不尊重想给你解惑的人。就好像说,来啊来啊,给我解决这个问题,我赏你一分钱哦。还不快点?
你出分,别人回答问题,


相关问答:

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi如何向Access数据表中自定义字段

delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀

分分忒少咧,一般人都懒得进来……*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi 异步线程

delphi 异步线程怎么怎么实现?
请各位大佬帮忙!
最好有个实例!
多谢

你不同步就是异步了,还写啥

默认情况下,线程就是异步的…………*^_^*

估计楼主同步和异步概念都没弄清

真无语。。可 ......

delphi memo录入问题

我想一个 memo 两个button  一个edit
memo中导入文本 然后点击一次 button  edit1.txt 自动添加一行memo
再次点击 添加memo下一行文本 如何实现
我的代码是
==
procedure TForm1.Button2C ......

delphi 数组跟for

如何用数组跟for打印出下面的图形
*
**
***
****

如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号