paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* call mysql_init

Browse Source
This commit is contained in:
fpc 2005-03-24 22:56:21 +00:00
parent 09248fce79
commit f8849f9396
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/utils/dbtests.pp
View File

@ -72,6 +72,7 @@ begin
{$ifdef ver1_0}
Result:=mysql_connect(@Connection,PChar(Host),PChar(User),PChar(Password))<>Nil;
{$else}
mysql_init(@Connection);
Result:=mysql_real_connect(@Connection,PChar(Host),PChar(User),PChar(Password),Nil,0,Nil,0)<>Nil;
{$endif}
If Not Result then