paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 01:29:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Check for empty lookup-field dataset before iterating, Mantis #21383,

Browse Source 
Patch by Luis Americo

git-svn-id: trunk@20439 -
This commit is contained in:
marco 2012-02-27 21:45:21 +00:00
parent 5c2faa4a61
commit 865220f3d6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/base/fields.inc
View File

@ -712,10 +712,11 @@ begin
FLookupDataSet.DisableControls;
try
FLookupDataSet.First;
repeat
while not FLookupDataSet.Eof do
begin
FLookupList.Add(FLookupDataSet.FieldValues[FLookupKeyfields], FLookupDataSet.FieldValues[FLookupResultField]);
FLookupDataSet.Next;
until FLookupDataSet.EOF;
end;
finally
FLookupDataSet.EnableControls;
end;