[Instantobjects-cvscommit] SF.net SVN: instantobjects: [710] trunk/Source/Core/InstantBrokers.pas

[<na...@us...>]

Revision: 710
          http://svn.sourceforge.net/instantobjects/revision/?rev=710&view=rev
Author:   nandod
Date:     2006-10-20 07:30:12 -0700 (Fri, 20 Oct 2006)

Log Message:
-----------
* fixed indentation.

Modified Paths:
--------------
    trunk/Source/Core/InstantBrokers.pas

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2006-10-10 00:29:18 UTC (rev 709)
+++ trunk/Source/Core/InstantBrokers.pas	2006-10-20 14:30:12 UTC (rev 710)
@@ -4705,12 +4705,12 @@
 begin
   if TranslatorClass <> nil then
     with TranslatorClass.Create(Self) do
-    try
-      CommandText := Self.Command;
-      Statement := StatementText;
-    finally
-      Free;
-    end;
+      try
+        CommandText := Self.Command;
+        Statement := StatementText;
+      finally
+        Free;
+      end;
 end;
 
 class function TInstantCustomRelationalQuery.TranslatorClass: TInstantRelationalTranslatorClass;