浏览代码

* fix indention

git-svn-id: trunk@18238 -
florian 14 年之前
父节点
当前提交
ae8c250c3e
共有 1 个文件被更改,包括 10 次插入10 次删除
  1. 10 10
      rtl/objpas/fgl.pp

+ 10 - 10
rtl/objpas/fgl.pp

@@ -279,11 +279,11 @@ type
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
       FOnKeyCompare: TKeyCompareFunc;
       FOnKeyCompare: TKeyCompareFunc;
       FOnDataCompare: TDataCompareFunc;
       FOnDataCompare: TDataCompareFunc;
-      procedure CopyItem(Src, Dest: Pointer); override;
-      procedure CopyKey(Src, Dest: Pointer); override;
-      procedure CopyData(Src, Dest: Pointer); override;
-      procedure Deref(Item: Pointer); override;
-      procedure InitOnPtrCompare; override;
+    procedure CopyItem(Src, Dest: Pointer); override;
+    procedure CopyKey(Src, Dest: Pointer); override;
+    procedure CopyData(Src, Dest: Pointer); override;
+    procedure Deref(Item: Pointer); override;
+    procedure InitOnPtrCompare; override;
     function GetKey(Index: Integer): TKey; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKey(Index: Integer): TKey; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKeyData(const AKey: TKey): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKeyData(const AKey: TKey): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetData(Index: Integer): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetData(Index: Integer): TData; {$ifdef CLASSESINLINE} inline; {$endif}
@@ -324,11 +324,11 @@ type
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
       FOnKeyCompare: TKeyCompareFunc;
       FOnKeyCompare: TKeyCompareFunc;
       FOnDataCompare: TDataCompareFunc;
       FOnDataCompare: TDataCompareFunc;
-      procedure CopyItem(Src, Dest: Pointer); override;
-      procedure CopyKey(Src, Dest: Pointer); override;
-      procedure CopyData(Src, Dest: Pointer); override;
-      procedure Deref(Item: Pointer); override;
-      procedure InitOnPtrCompare; override;
+    procedure CopyItem(Src, Dest: Pointer); override;
+    procedure CopyKey(Src, Dest: Pointer); override;
+    procedure CopyData(Src, Dest: Pointer); override;
+    procedure Deref(Item: Pointer); override;
+    procedure InitOnPtrCompare; override;
     function GetKey(Index: Integer): TKey; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKey(Index: Integer): TKey; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKeyData(const AKey: TKey): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetKeyData(const AKey: TKey): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetData(Index: Integer): TData; {$ifdef CLASSESINLINE} inline; {$endif}
     function GetData(Index: Integer): TData; {$ifdef CLASSESINLINE} inline; {$endif}