各高人，请问函数怎么做为另一个函数的参数？请举列说明。。。。(50分)

因为分工，
一人要做一个读串口数据的函数，但不负责写入数据库
我要做个将数据写入数据库的函数，那个读串口的函数通过调用
我的函数将数据写入数据库中，但是我要将函数做为参数传给他，

有返回值的函数即可

var s:stirng;
s:=a;
~~函数
b(s)

type
TWriteDataPro = procedure( DataToBeWritten : pchar ) of object;
procedure( DataToBeWritten : pchar );为你的过程格式,当然了,你可以增加一些
别的接口参数,然后做读串口数据函数的人写一个如下格式的函数:
function ReadComAndWriteData( WDP:TWriteDataPro ):boolean;
begin
....
WDP( COMData ) ;
....
end;