就是,像程序清单中的开头的几个声明,像 procedure FormCreate(Sender: TObject); 是怎么产生的???
当然我知道,这个声明可以直接单击窗体产生.但像其他的呢,像 procedure FormDestroy(Sender: TObject);这个怎么办?
还有那些
函数:像public 区 :procedure ConvolveI(.................) 等等怎么产生呢?谢谢!!!
当然我知道,这个声明可以直接单击窗体产生.但像其他的呢,像 procedure FormDestroy(Sender: TObject);这个怎么办?
还有那些
函数:像public 区 :procedure ConvolveI(.................) 等等怎么产生呢?谢谢!!!
类似于FORMQUERY这类,只需在Object inspector中,在属性和事件中的事件标签中找到FORMQUERY双击右侧即可产生此事件的框架代码,并自动在FORM的PUBLIC部分中加入这个事件。
明白否?试一试吧。我也是学DELPHI不久,共同学习!
这类的,你就要自己在public区写了
function set255(clr :integer) :integer;
begin
if clr >254 then result :=255;
if clr <1 then result :=0;
if (clr >=1) and (clr <=254) then result:= clr; sh
end;编译时问题 说是,没有返回值 ,我也觉的
而且result 也没有定义呀 这是delphi中自带的吧?谁能解释以下 谢谢!
给分了!!
begin
if clr >254 then result :=255;
if clr <1 then result :=0;
if (clr >=1) and (clr <=254) then result:= clr; //没有sh end;
那点有问题呀?
函数的返回值可以用两种方法指定:1.在函数中给函数名赋值,像VB似的 2.给result赋值.一般提倡后者,因为,前者中函数名是"只写"的,即只可赋值,不可取值.而result既可读又可写.而且,很明显,后者要简明得多!
就是----你的每一个给result赋值的语句都在if后边,那么,如果每个条件都不满足的话,result就成了没有初始化的了.按你的程序,显然那是不可能出现的情况,但...电脑就这么笨呀!它看不出来,它只从语法上分析,它要求你的程序从语法上必须保证对result的初始化.最后一句中 "if...then" 用一个else代替就行了.