paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 12:30:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed totally useless "try .. except raise end" block

Browse Source 
git-svn-id: trunk@12514 -
This commit is contained in:
joost 2009-01-05 13:08:13 +00:00
parent 11015eb6ad
commit f722533e9a
1 changed files with 36 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -1183,7 +1183,6 @@ var tel, fieldc : integer;
IndexFields : TStrings;
ReadFromFile: Boolean;
begin
try
ReadFromFile:=IsReadFromPacket;
Prepare;
if FCursor.FStatementType in [stSelect,stExecProcedure] then
@ -1234,10 +1233,6 @@ begin
end
else
DatabaseError(SErrNoSelectStatement,Self);
except
on E:Exception do
raise;
end;
inherited InternalOpen;
end;