Delphi函数和过程
过程无返回值，函数有返回值。
procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
如上例所示，过程声明和定义中，多个参数是用分号隔开的，但在调用时是用逗号隔开的 。eg：
MyProc(3, 4, 'me', 3.14);
上例中省略了最后一个参数，当指定一个参数的缺省值后，其后的所有参数都必须指定一个缺省值，如上面的声明中的参数 p 和 q 。或者说，应该把所有指定默认值的参数放在参数列表的后面。
Delphi函数的值有两种方式返回，第一：把值赋给函数名；第二：把值赋给Result。而Result实际上是函数名的一个别名，同时它也是每一个函数内部自动隐含的局部变量，其类型跟函数的返回类型相同。
一般情况下，使用Result方式返回函数值，而不用函数名来返回。因为在调用一个无参数的函数时只写函数名就可以调用，不像C语言等其它语言一样即使无参数也要在函数名后加上括号，这样很容易不小心就写成递归调用，进入死循环。另外，有时候在coding过程中可能需要修改已经定下的函数名，此时如果用Result返回函数值的话就不需要再修改函数体了。
function Add:Integer;
var
i:Integer;
begin
Result := 0;
for i := 1 to 100 do
Add := Add + i; //死循环
ShowMessage(IntToStr(Result););
end;
需要注意的是，Delphi和其他一些语言不同，它的函数在返回值的时候并不中止函数本身，它总会执行到函数的最后一条语句。如果需要提前退出，可以用 Exit；语句。
相关文档：
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
......
第一种方法：
第一步： 修改属性
1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown
2、parseinput -> true
第二步：在onUserInput事件中写一句代码
DateTimePicker1.DateTime:=DateAndTime;
注：以上方法虽然可以达到目的，� ......
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下，有一个重要的机制，就是OLE ，就是可以让某
个应用程序（OLE Controller）访问其它应用程序（OLE Server）所提供的
功能，这样做的好处是，如果已经有了完成某项功能的程序，你就不必再为
某项功能编写特定 ......
