paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FCL-DB: cosmetic changes in comments

Browse Source 
git-svn-id: trunk@22934 -
This commit is contained in:
reiniero 2012-11-05 07:00:12 +00:00
parent 761fcca4ec
commit 51c06b1180
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/interbase/fbadmin.pp
View File

@ -93,7 +93,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
//Connect to service manage. Specify User,Password and, for remote databases, //Connect to service manager. Specify User,Password and, for remote databases,
//Host and, if not standard, Port //Host and, if not standard, Port
function Connect:boolean; function Connect:boolean;
//Disconnect from service manager. Done automatically when destroying component //Disconnect from service manager. Done automatically when destroying component
@ -158,7 +158,7 @@ type
property Port: word read FPort write FPort default 3050; property Port: word read FPort write FPort default 3050;
//Protocol used to connect to service manager. One of: //Protocol used to connect to service manager. One of:
//IBSPLOCAL: Host and port ignored //IBSPLOCAL: Host and port ignored
//IBSPTCPIP: Connectoct to Host:Port //IBSPTCPIP: Connect to Host:Port
//IBSPNETBEUI: Connect to \\Host\ //IBSPNETBEUI: Connect to \\Host\
//IBSPNAMEDPIPE: Connect to //Host/ //IBSPNAMEDPIPE: Connect to //Host/
property Protocol: TServiceProtocol read FProtocol write FProtocol; property Protocol: TServiceProtocol read FProtocol write FProtocol;

2
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -334,7 +334,7 @@ begin
dointernaldisconnect; dointernaldisconnect;
DatabaseError(sErrConnectionFailed + ' (PostgreSQL: ' + msg + ')',self); DatabaseError(sErrConnectionFailed + ' (PostgreSQL: ' + msg + ')',self);
end; end;
// This does only work for pg>=8.0, so timestamps won't work with earlier versions of pg which are compiled with integer_datetimes on // This only works for pg>=8.0, so timestamps won't work with earlier versions of pg which are compiled with integer_datetimes on
if PQparameterStatus<>nil then if PQparameterStatus<>nil then
FIntegerDateTimes := PQparameterStatus(FSQLDatabaseHandle,'integer_datetimes') = 'on'; FIntegerDateTimes := PQparameterStatus(FSQLDatabaseHandle,'integer_datetimes') = 'on';
end; end;