paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:39:16 +02: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
ADataset := GetLookupDataset;
if Assigned(ADataset) then begin
ADataset.FieldDefs.Update;
for i := 0 to ADataset.FieldDefs.Count - 1 do begin
SelectResultField.Items.Add(ADataset.FieldDefs[i].Name);
SelectLookUpKeys.Items.Add(ADataset.FieldDefs[i].Name);
try
ADataset.FieldDefs.Update;
for i := 0 to ADataset.FieldDefs.Count - 1 do begin
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;