Browse Source

* Fix building

git-svn-id: trunk@32963 -
michael 9 years ago
parent
commit
c1e876f525
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/datadict/fpdatadict.pp

+ 1 - 1
packages/fcl-db/src/datadict/fpdatadict.pp

@@ -2870,7 +2870,7 @@ begin
     T:=TypeInfo(TIndexOptions);
     T:=TypeInfo(TIndexOptions);
     O:=StringToSet(T,S);
     O:=StringToSet(T,S);
     OP:=TIndexOptions(O);
     OP:=TIndexOptions(O);
-    Options:=OP;
+    Self.Options:=OP;
     end;
     end;
 end;
 end;