小弟没写过function,只会用function传出去值,带回来一个值应该怎么写啊??帮帮忙!!!
解决方案 »
- 奇怪的invalid class typecast问题
- 某一程序进程结束时,传递一个消息Delphi编写的程序中?
- 网络通信winsock的问题
- 如何在SDI中的CFormView窗体中,实现分页窗体的功能
- 十万火急。串口通信的问题:火灾报警器的接口为两针的和三针的,与计算机的串口如果接!我在测试成功即结贴!我是第一次搞串口!
- 窗体自动大小
- 请问如何在EDIT控件中对输入进行控制?
- 如何使stringGrid中的某一行或列中的内容居中显示?
- 我是一个使用ADSL的用户,如何获得我的ip地址呢?
- Delphi中调用VC创建的DLL时出现问题
- 客户要求有excel导入的功能.是不是要让客户提供导入的excel的文档格式才能开发啊?
- 后面为什么增加了一些怪符号#$D#$A (急急!!)?
begin
......
result:=返回值;
end;
begin
......
result:=返回值;
end;
=====================
不是这个意思吧,result,是调用aa(str:string)时传到外面的值呀??~~!!
function aa(str:string):string;
begin
......
result:=返回值;
end;调用时:
edit1.text:=aa('test');
begin
str := '';
Result := '';
end;你想要什么?
begin
result:=inttostr(str);
str:=str+1;
end;function aa(Var str:integer):string;///引用传递
begin
result:=inttostr(str);
str:=str+1;
end;aa的结果:
i:=1;
aa(i)-->'1'
i---->2
aa1的结果
i:=1;
aa1(i)-->'1'
i--->1