ソースを参照

* fcl-db: ibconnection: cosmetic

git-svn-id: trunk@28942 -
reiniero 11 年 前
コミット
727d73677a
1 ファイル変更3 行追加3 行削除
  1. 3 3
      packages/fcl-db/src/sqldb/interbase/ibconnection.pp

+ 3 - 3
packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -602,7 +602,7 @@ begin
         TrLen := SQLLen;
       end;
     SQL_TYPE_DATE :
-      TrType := ftDate;
+        TrType := ftDate;
     SQL_TYPE_TIME :
         TrType := ftTime;
     SQL_TIMESTAMP :
@@ -615,9 +615,9 @@ begin
     SQL_BLOB :
       begin
         if SQLSubType = isc_blob_text then
-           TrType := ftMemo
+          TrType := ftMemo
         else
-           TrType := ftBlob;
+          TrType := ftBlob;
         TrLen := SQLLen;
       end;
     SQL_SHORT :