From 90d47a6dead08e16d8de85f4db075c3fdd0eedec Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sat, 28 Apr 2012 11:53:48 +0000
Subject: [PATCH] lcl: clear field list before calling GetFieldList

git-svn-id: trunk@37055 -
---
 lcl/include/dblookup.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 7b97a531b0..380caed139 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -266,6 +266,7 @@ begin
         FKeyFieldNames := FControlLink.Field.LookupKeyFields;
       end else
         FDataFieldNames := FControlLink.Field.FieldName;
+      FDataFields.Clear;
       FControlLink.DataSet.GetFieldList(FDataFields, FDataFieldNames);
     end;
   end;
@@ -289,6 +290,7 @@ begin
     try
       if FListLink.DataSet.Active then
       begin
+        FKeyFields.Clear;
         FListLink.DataSet.GetFieldList(ListFields, FListFieldName);
         FListLink.DataSet.GetFieldList(FKeyFields, FKeyFieldNames);
         if FHasLookUpField then