diff --git a/Source/Base/Utiles/uGridUtils.pas b/Source/Base/Utiles/uGridUtils.pas index c856000..3b0362f 100644 --- a/Source/Base/Utiles/uGridUtils.pas +++ b/Source/Base/Utiles/uGridUtils.pas @@ -88,12 +88,13 @@ var AList: TList; AKeyValue: Variant; begin + I := 0; + Result := nil; + if not Assigned(RecordInfo) then Exit; - I := 0; ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues); - Result := nil; AList := TList.Create; try while I < AView.ViewData.RowCount do