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

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


相关问答:

小弟不会DELPHI,请大侠们帮个忙

这个是拦截按键消息并测试是否为ENTER键。
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

Delphi Services 里面Findwindow 问题

老产品维护问题,
Delphi 版本:delphi6

如果新建一个Application,
用一下Code可以获得正确的Handle
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......

Delphi 使用shockwaveflash控件的问题

我写了个小程序,上面添加了一个shockwaveflash控件,然后在movie里写入swf文件的路径,然后执行没有问题。
当我把这个程序转移到另一台电脑执行时, shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......

delphi 字符串 有乱码,请教高手

碰到一个奇怪的问题:
我从服务端取到一个字符串保存在变量S中,我要用S拼出自己要的一个字符串,如
<Name>S </name>;但是现在结果显示出来有时候会变成这样: <Name>S?/name>;
好像 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号