Parcourir la source

* Fix building

git-svn-id: trunk@32963 -
michael il y a 9 ans
Parent
commit
c1e876f525
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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);
     O:=StringToSet(T,S);
     OP:=TIndexOptions(O);
-    Options:=OP;
+    Self.Options:=OP;
     end;
 end;