paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 05:30:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: better debugging

Browse Source 
git-svn-id: trunk@33155 -
This commit is contained in:
mattias 2011-10-29 20:03:17 +00:00
parent d2b00f076f
commit eec9a515ba
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dblookup.inc
View File

@ -203,6 +203,8 @@ begin
end;
procedure TDBLookup.FetchLookupData;
var
s: String;
begin
if not Assigned(FControlItems) then
Exit;
@ -219,7 +221,8 @@ begin
if (FLookupCache and not FLookUpFieldIsCached) then
FLookupList.Add(FListLink.DataSet.FieldValues[FKeyFieldNames],
FListField.Value);
FControlItems.Add(FListField.AsString);
s:=FListField.AsString;
FControlItems.Add(s);
FListLink.DataSet.Next;
end;
finally