paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r41612 into '.':

Browse Source 
U    packages/sqlite/tests/testapiv3x.pp
--- Recording mergeinfo for merge of r41612 into '.':
 U   .

# revisions: 41612
r41612 | michael | 2019-03-06 08:27:28 +0100 (Wed, 06 Mar 2019) | 1 line
Changed paths:
   M /trunk/packages/sqlite/tests/testapiv3x.pp

* Fix bug #35194

git-svn-id: branches/fixes_3_2@42099 -
This commit is contained in:
marco 2019-05-19 08:42:36 +00:00
parent d093d252d5
commit 8fa5c6e445
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/sqlite/tests/testapiv3x.pp
View File

@ -10,7 +10,7 @@ const
var
rc : Integer;
db : PPsqlite3;
db : Psqlite3;
sql : string;
pzErrMsg : PChar;
@ -77,7 +77,11 @@ begin
then writeln(Format('SQL error: %s', [pzErrMsg^]));
finally sqlite3_close(db); end;
sleep(5000);
{$ifdef Windows}
writeln('Hit enter to exit');
Readln;
{$endif}
end.