From 922eca3080fdd8bfbbe2be78a780cc34f6483cd8 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 1 Mar 2011 22:39:09 +0000
Subject: [PATCH] Code cosmetic - avoid calling Exit when we have the chance to
 jump to Except instead.

---
 source/main.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 9d111828..d29604f4 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4567,15 +4567,15 @@ var
       tablename := dbname + '.' + tablename;
     try
       Columns := ActiveConnection.GetResults('SHOW COLUMNS FROM '+tablename);
+      while not Columns.Eof do begin
+        Proposal.InsertList.Add(Columns.Col('Field'));
+        Proposal.ItemList.Add(Format(SYNCOMPLETION_PATTERN, [ICONINDEX_FIELD, GetFirstWord(Columns.Col('Type')), Columns.Col('Field')]) );
+        Columns.Next;
+      end;
+      FreeAndNil(Columns);
     except
-      Exit;
+      on E:EDatabaseError do;
     end;
-    while not Columns.Eof do begin
-      Proposal.InsertList.Add(Columns.Col('Field'));
-      Proposal.ItemList.Add(Format(SYNCOMPLETION_PATTERN, [ICONINDEX_FIELD, GetFirstWord(Columns.Col('Type')), Columns.Col('Field')]) );
-      Columns.Next;
-    end;
-    FreeAndNil(Columns);
   end;
 
 begin