易截截图软件、单文件、免安装、纯绿色、仅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。这个我实在不知道怎么解释了,只能意会了

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


相关问答:

Python中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

delphi memo录入问题

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

运行delphi的exe,提示“参数不正确”

delphi打包的exe,没放什么delphi的动态库的文件,在大部分机器上都没问题,但是有个机器一运行提示“参数不正确”,程序还正常。
有遇到过这问题吗?是不是系统缺啥?
比对两台电脑的设定,看有何不同?比如时间 ......

delphi 自定义类型与类型匹配

//我在type定义一个tmyarray
type
tmyarray= array[0..255] of integer;


...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;

//myfun2 要用到 ......

Delphi 内嵌网页窗口大小

程序里放置一个WebBrowser(在Internet页面里)然后:
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.baidu.com');
end;
请问一下如何控 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号