怎么写无返回值的函数啊? 各位大侠: 小弟刚学delphi,有些语法不懂,请大家指教! 我想写个函数,不需要返回值,只是实现某个功能!可是不知道函数格式,请大家给段类似的代码!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用过程procedure f;begin //...end; 没搞错吧,上面不是给你写了。如果看不懂语法,赶快找本有讲pascal语法的书来看看。 过程,过程,过程procedure 过程名(参数列表)begin 代码;end;用d创建一个空form,看看form的事件处理代码,统统是过程,没有返回值 嘿嘿,你在学步之前问如何学步,你先慢慢走就是了嘛。C/C++的函数在pascal中分为两种:函数(带返回值)与过程(无返回值) 过程名后面可以不带参数吗?怎么调用这个过程啊?这样行吗?如果此过程为:procedure abcbengin.....end;if 条件成立 then bengin abc end; Object Pascal reference 不错的 很简单,要返回值用function 函数名(参数列表)beginResult := ...;end;不要返回值用:procedure 过程名(参数列表)beginend; 用过程,上面你的例子已经正确了。调用过程很简单的。就象你用的if 条件成立 then abc; unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Inifiles, StdCtrls, ComCtrls, Buttons, DB, ADODB;type TForm1 = class(TForm) Button1: TButton; procedure DataFilter; procedure Button1Click(Sender: TObject); private public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DataFilter;begin showmessage('调用过程');end;procedure TForm1.Button1Click(Sender: TObject);begin DataFilter;end;end. 如何给没有窗体的unit 增加窗体 如何查看delphi内部代码 ClientDataSet 如何实现分页显示数据 DELPHI开发ACCESS.对于字符型字段,如何在SQL中进行赋值,代码如下 高分求解----在DELPHI中,将我写的一个组件安装后,可是如何更改它的的图标? 菜鸟问题:我想把一个DLL中的所有函数导入到工程中使用,如何做? 请问finalization是什么意思,起什么作用呀? 问题简单,近来看看! 对一数组快速排序,搞定给分!(在线)! 请问在delphi中的ADO的问题(100分) 语音聊天难题 如何区分键盘和扫描枪的输入?
procedure f;
begin
//...
end;
procedure 过程名(参数列表)
begin
代码;
end;
用d创建一个空form,看看form的事件处理代码,统统是过程,没有返回值
你先慢慢走就是了嘛。
C/C++的函数在pascal中分为两种:函数(带返回值)与过程(无返回值)
procedure abc
bengin
.....
end;if 条件成立 then
bengin
abc
end;
function 函数名(参数列表)
begin
Result := ...;
end;不要返回值用:
procedure 过程名(参数列表)
begin
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Inifiles, StdCtrls, ComCtrls, Buttons, DB, ADODB;type
TForm1 = class(TForm)
Button1: TButton;
procedure DataFilter;
procedure Button1Click(Sender: TObject); private public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.DataFilter;
begin
showmessage('调用过程');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
DataFilter;
end;end.