mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 13:39:32 +02:00
30 lines
602 B
ObjectPascal
30 lines
602 B
ObjectPascal
program testpr;
|
|
{$mode objfpc}
|
|
uses fpodbc,Classes;
|
|
|
|
var
|
|
Conn : TODBCConnection;
|
|
ProcedureNames : TStringList;
|
|
I : Integer;
|
|
|
|
begin
|
|
Conn:=TODBCConnection.Create(Nil);
|
|
Try
|
|
Conn.DSN:='BUGS';
|
|
Conn.Active:=True;
|
|
ProcedureNames:=TStringList.Create;
|
|
ProcedureNames.Sorted:=True;
|
|
Try
|
|
Conn.GetProcedureNames(ProcedureNames);
|
|
Writeln('Found ',ProcedureNames.Count,' procedures:');
|
|
For I:=0 to ProcedureNames.Count-1 do
|
|
Writeln(ProcedureNames[i]);
|
|
finally
|
|
ProcedureNames.Free;
|
|
end;
|
|
Conn.Active:=False;
|
|
Finally
|
|
Conn.free;
|
|
end;
|
|
end.
|