Jelajahi Sumber

* Fix compilation

Michael VAN CANNEYT 2 tahun lalu
induk
melakukan
e015bde476
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      packages/fcl-web/src/restbridge/sqldbrestschema.pp

+ 1 - 1
packages/fcl-web/src/restbridge/sqldbrestschema.pp

@@ -1533,7 +1533,7 @@ begin
     O:=aMinFieldOpts;
     if FD.Required then
        Include(O,foRequired);
-    If AnsiIndexStr(FN,aIndexFields)<>-1 then
+    If IndexStr(FN,aIndexFields)<>-1 then
       begin
       Include(O,foInKey);
       Exclude(O,foFilter);