paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 03:49:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, fieldseditor: handle exception on selecting lookup dataset, reported by Simon Ameis, issue #19924

Browse Source 
git-svn-id: trunk@46563 -
This commit is contained in:
jesus 2014-10-15 20:11:34 +00:00
parent e3d93cbfbd
commit 3227d9ff4c
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/ideintf/newfield.pas
View File

@ -403,10 +403,16 @@ begin
if (DataSetsCombo.ItemIndex > -1) then begin if (DataSetsCombo.ItemIndex > -1) then begin
ADataset := GetLookupDataset; ADataset := GetLookupDataset;
if Assigned(ADataset) then begin if Assigned(ADataset) then begin
ADataset.FieldDefs.Update; try
for i := 0 to ADataset.FieldDefs.Count - 1 do begin ADataset.FieldDefs.Update;
SelectResultField.Items.Add(ADataset.FieldDefs[i].Name); for i := 0 to ADataset.FieldDefs.Count - 1 do begin
SelectLookUpKeys.Items.Add(ADataset.FieldDefs[i].Name); SelectResultField.Items.Add(ADataset.FieldDefs[i].Name);
SelectLookUpKeys.Items.Add(ADataset.FieldDefs[i].Name);
end;
except
on E:Exception do begin
ShowMessage(fesNoFields+^M+fesCheckDSet+^M^M+E.Message);
end;
end; end;
end; end;
end; end;