From 9490c3db367b24224641e7360fc5ea44803525fc Mon Sep 17 00:00:00 2001
From: Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 20 Mar 2008 18:30:23 +0000
Subject: * fix potential bug in cleanroom TField.RefreshLookupList

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/cleanroom@10513 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-db/src/base/fields.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index 8683dca570..71ecad6b86 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/packages/fcl-db/src/base/fields.inc
@@ -667,7 +667,7 @@ begin
     FLookupDataSet.Active := True;
     FFields.CheckFieldNames(FLookupKeyfields);
     FLookupDataset.FieldByName(FLookupresultField); // I presume that if it doesn't exist it throws exception, and that a field with null value is still valid
-    FLookupList.Clear;
+    LookupList.Clear; // have to be F-less because we might be creating it here with getter!
 
     FLookupDataSet.DisableControls;
     try
-- 
cgit v1.2.1