delphi的function和procedure参数能不能像c++那样有默认得参数呢?

Question

可以
procedure a(i:integer=1,f:boolean=false);就可以了，函数于此相同

Answer 1

就是说pascal和c++一样的对于这种情况无能为力?
必须一个一个老老实实的都写出来?

Answer 2

可是看这样的代码:procedure exitprompt(var tcanclose: boolean;msg :string=application.title;btitle:string=application.title);
var rs:integer;
begin
 rs:=MessageBox(application.Handle,pchar(msg),pchar(btitle),MB_YESNO+MB_ICONINFORMATION);
if(rs=7)  then  tcanclose:=False;
if(rs=6)  then  tcanclose:=True;
end;///////////////[Error] common_san.pas(77): Constant expression expected
[Error] common_san.pas(77): Constant expression expected
[Error] common_san.pas(80): Undeclared identifier: 'btitle'why???????????????????????

Answer 3

//变量不能作默认参数
procedure exitprompt(var tcanclose: boolean;msg :string='';
  btitle:string='');
var rs:integer;
begin
if msg='' then msg:=application.title;
if btitle='' then btitle:=application.Title;
rs:=MessageBox(application.Handle,pchar(msg),pchar(btitle),MB_YESNO+MB_ICONINFORMATION);
if(rs=7)  then  tcanclose:=False;
if(rs=6)  then  tcanclose:=True;
end;//请看简单的
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg(Format('你要退出%s吗?', [Application.Title]),
    mtWarning, [mbYes, mbNo], 0) = mrYes;
end;

Answer 4

可是c++里面能。。看来pascal比较落后

Answer 5

to: stanely(暗黑)
  pascal是很严谨的语言
  不存在落不落后
  有人喜欢c
  有人喜欢pascal
  有人喜欢basic
  还有人什么多不喜欢
  反正这些语言都不是你设计的
  用的人这么多自有它的好处
  不满意自己设计一个开发语言系统就是
  不要说长道短的

Answer 6

2 zswang(zs)　:我说pascal不如c好,的确是我的喜好,难道你是喜欢pascal超过c?
那你说说,为什么不能对pascal说长道短呢?
既然是计算机语言,什么不能被人评论?
伟人死后被人评论尚可,何况pascal?
莫非是因为心虚?
当然了,pascal的确有自己的好处,可是当你pascal和c都学过了以后,不用我说什么,你自然会明白的.

Answer 7

我不想在这里跟你争执c和pascal的好坏,毕竟是delphi论坛,我也是看不惯bcb才迫不得已转向delphi的.
不是因为我看不惯c语言,而是bcb有点赶鸭子上架的感觉,糟踏了好好的c++,
这个世界上最遗憾的事情就是没有真正可以程的上是visual c++的东西,好好的名字被微软糟踏了.

Answer 8

from//http://www.csdn.net/expert/topic/359/359708.shtm
回复人：　zswang(zs)　(2001-11-8 14:01:00)  得0分 
'basic起初是为初学者准备的
'注重以易学
'不过老盖发家就是靠它
'为了让大家记得这马事
'所以一直不放弃basic
'现况:许多MS角本都离不开它(asp,office...){
pascal起初也是作为教学用的
注重以严谨
设计的初衷是要大家养成良好的开发风格和严谨的开发作风
在国际上的程序设计比赛中大多用Turbo pascal 6.0
Borland的宗旨是要把它玩到：
  脱离思考硬件和软件因素
  让程序员的精力
  只放在算法的实现上
现况:出了Kylix以后Borland的宗旨又进了一小步
}/*
c就是为程序员设计的
注重以实际
MS 在玩、Borland 在玩、其它的说不上来的也在玩
设计的初衷就是拿来编程的
c很多人都我说好，我就不说了
现况:程序员谁躲藏不开
*/还又很多其它语言(PB、VF、JAVA...)
我也不太了解
其实开发工具也没有什么好不好、差不差的
这种问题你要说谁的不好
信不信
你把这种排挤观点放到相应所属论坛就会被骂死谁都不是完美的
开发工具也是
它们一天天的完善
我们一天天的进步有人用
自有它的存在价值
我们又不是开发工具的工具
管它谁是谁
用就是信不信
有人用汇编写的软件比你所写过的任何一个软件都值钱do you 明白?
 
回复人：　kanghl()　(2001-11-8 14:39:23)  得0分 
真不明白为什么这么多人不学习喜欢讨论这些问题  

Answer 9

我喜欢c也喜欢pascal也喜欢basic也喜欢vf....
差异才是宝贝
//我只是好希望中国也能出了自己的开发语言平台
//她才是我的最爱
//要等到什么时候....不敢说呀!//一碰到解决不了的问题就怀疑开发工具
//如果都是这样
//恐怕任何开发工具都不会适合他
//为什么不想想自己下的功夫够不够
//要知道什么领域都会有大虾//说这么多干啥
//实际点
//我经把一个简单的方法告诉你了
//不知道合不合你的要求
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg(Format('你要退出%s吗?', [Application.Title]),
    mtWarning, [mbYes, mbNo], 0) = mrYes;
end;

Answer 10

看来这个叫：　zswang(zs)　的象是高手呀,嗯,不错,欣赏你的表现能力

Answer 11

不过你的方法不是我要的.
我要的pascal目前无法实现!
除非重载!