paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples, database/tsqlscript: fixed typo

Browse Source 
git-svn-id: trunk@45906 -
This commit is contained in:
maxim 2014-07-18 00:04:49 +00:00
parent 04cc9f95b4
commit 2eec396f95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/database/tsqlscript/mainform.pas
View File

@ -202,7 +202,7 @@ begin
FTran.StartTransaction; //better safe than sorry FTran.StartTransaction; //better safe than sorry
OurScript.Execute; OurScript.Execute;
FTran.Commit; //Make sure entire script is committed to the db FTran.Commit; //Make sure entire script is committed to the db
ShowMessage('Script was succesfully run.'); ShowMessage('Script was successfully run.');
except except
on E: EDataBaseError do on E: EDataBaseError do
begin begin