Delphi连ORACLE问题如何在Delphi中运行Oracle的函数

[紫气东来-长江]

我需要在delphi中运行oracle的 checkuser函数　checkuser有三个输入参数　一个输出豢数
在delphi中我不知如何来做了　请大家帮忙

[如果这都不算爱]

在delphi里执行Sql语句的方式调用,并把参数传进去就行了.

[紫气东来-长江]

如何用　能给一段程序吗

[如果这都不算爱]

//我用的是SQL SERVER,Oracle也差不多。
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDate;
begin
Present := Now;
with ADOQuery1 do
begin
Close;
SQL.Add('select dbo.GetMonthLastDay('+DateToStr(Present)+') as LastDay');
ExecSql;
Open;

ShowMessage(ADOQuery1.fieldbyname('LastDay').asString);
end;
end;