在TYPE块申明函数原形 type ..... function StrToRMB(curs :string) :string; end;function StrToRMB(curs :string) :string; begin //这里是函数过程 end; 调用直接str:=strtormb('100.00');就行了
应该说是interface与implementation部分interface // 接口单元//函数声明 function StrToRMB(curs :string) :string;implementation // 函数实现部分//函数实现 function StrToRMB(curs :string) :string; begin ... end;
type
.....
function StrToRMB(curs :string) :string;
end;function StrToRMB(curs :string) :string;
begin
//这里是函数过程
end;
调用直接str:=strtormb('100.00');就行了
function StrToRMB(curs :string) :string;implementation // 函数实现部分//函数实现
function StrToRMB(curs :string) :string;
begin
...
end;
如果只是在本单元引用,只要在 private 下声明即可,
如果外部单元也引用 ,则在public 下声明!