Răsfoiți Sursa

* Fix compilation

Michael VAN CANNEYT 2 ani în urmă
părinte
comite
e015bde476
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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);