Inicio Explorar Axuda
Iniciar sesión
pascal
/
freepascal.compiler
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Explorar o código

* changed open to .first, mantis #19360

git-svn-id: trunk@18157 -
marco %!s(int64=14) %!d(string=hai) anos
pai
f20b559668
achega
bc41e65c5c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
Dividir vista Mostrar estatísticas de Diff
  1. 1 1
      packages/fcl-db/src/base/fields.inc

+ 1 - 1
packages/fcl-db/src/base/fields.inc
Ver ficheiro 

@@ -709,7 +709,7 @@ begin
 
 
     FLookupDataSet.DisableControls;
 
     try
 
-      FLookupDataSet.Open;
 
+      FLookupDataSet.First;
 
       repeat
 
         FLookupList.Add(FLookupDataSet.FieldValues[FLookupKeyfields], FLookupDataSet.FieldValues[FLookupResultField]);
 
         FLookupDataSet.Next;