From 3227d9ff4c0b4689a103b4753f1ebecd5a62af42 Mon Sep 17 00:00:00 2001 From: jesus Date: Wed, 15 Oct 2014 20:11:34 +0000 Subject: [PATCH] IDE, fieldseditor: handle exception on selecting lookup dataset, reported by Simon Ameis, issue #19924 git-svn-id: trunk@46563 - --- components/ideintf/newfield.pas | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/components/ideintf/newfield.pas b/components/ideintf/newfield.pas index 0312890ccc..bd094a9fff 100644 --- a/components/ideintf/newfield.pas +++ b/components/ideintf/newfield.pas @@ -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;