[VolgaLEG]

Просьба о помощи к уважаемым форумчанам! Руководство попросило исправить ошибки в программе (что то я уже исправил), и вот с очередной ошибкой зашел в тупик (понятно что все это от нехватки знаний, я не программист DELPHI, немного на VFP). Теперь о проблеме.

Пусть имеется два грида на разных формах (где все работатет- пусть будет FormaOK, а где ошибка, назовем FormaErr). На каждой расположен grid с вожможностью сортировки и фильтрации по колонкам в заголовке столбца.

На форме FormOK, если Grid не отображает записи (нет в выборке записей), при нажатии на фильтр, чтобы изменить параметры, список раскрывается все хорошо и там (наверно по умолчанию) есть строки Все....Расширенный и т.д

На форме FormErr, если Grid не отображает записи (нет в выборке записей), при нажатии на фильтр, чтобы изменить параметры, выходит ошибка (Access violatiion ...по такому то адресу), а если изначально grid отображает хоть какие то записи - и в этом случае все работает нормально, фильтр раскрывается.

При ошибке указывется на UNIT dxTL(TreeList я так понимаю)

Код:

1 2 3 4 5 6 7

function TdxTreeListNode.GetString(Column:Integer):string; begin try Result:=FOwner.GetNodeString(Self,Column); exept end; end;

Помогите разобраться пожалуйста, куда копать?

[lmikle]

Ну, есть подозрение, что код пытается получить список колонок из грида. А когда там нет записей, то нет и колонок (почему - надо смотреть, например, если запрос вернул пустой результат, то грид не подключается, например). Я бы смотрел в сторону того, что бы изменить код на получения колонок из DataSet (TTable/TQuery/etc).
А вообще, если в одной форме все работает правильно, а другой та же функция не работает, то просто попробуй сравнить код. AccessViolation говорит о том, что происходит обращение к несозданному объекту, или уже удаленному. Так что тут главное понять куда код "ломится", ну а поправить уже будет просто.

[VolgaLEG]

Вот код по событию EnumFilterValues в gride на форме FormaERR

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

procedure TMailForm.dxDBGridArxivEnumFilterValues(Sender: TObject;     AColumn: TdxDBTreeListColumn;     var AValue: Variant;     var ADisplayText: string;     var ARepeatEnumeration: Boolean); var     LookKey: string;     LookIndex: Integer; begin     try // finally           if FilterValues = nil then             FilterValues := TStringList.Create;           if Node = nil then             Node := TdxDBGrid(Sender).TopVisibleNode; // Далее появляется ошибка         if IsValueInFilter(FilterValues, Node.Strings[AColumn.Index]) then         begin             Node := TdxDBGrid(Sender).GetNextVisible(Node);             Exit;         end         else             FilterValues.Add(Node.Strings[AColumn.Index]);           ADisplayText := Node.Strings[AColumn.Index];           if TdxDBGrid(Sender).Columns[AColumn.Index].Field.FieldKind <> fkLookup then             AValue := Node.Values[AColumn.Index]         else         begin             LookKey := TdxDBGrid(Sender).ColumnByFieldName(AColumn.FieldName).Field.KeyFields;             LookIndex := TdxDBGrid(Sender).FindColumnByFieldName(LookKey).Index;             AValue := Node.Values[LookIndex];         end;         Node := TdxDBGrid(Sender).GetNextVisible(Node);           if Node = nil then         begin             FilterValues.Free;             FilterValues := nil;             ARepeatEnumeration := False;         end;       finally         Inc(FilterDropCount);           if FilterDropCount > 100 then         begin             FilterValues.Free;             FilterValues := nil;             Node := nil;             FilterDropCount := 0;             ARepeatEnumeration := False;         end;     end; end;

Для сравнения, далее код из формы по событию EnumFilterValues, где все работает FormaOK (закрасил * не для общего обозрения)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161

procedure TMainForm.dxDBGrid_PersonEnumFilterValues(Sender: TObject;     AColumn: TdxDBTreeListColumn; var AValue: Variant;     var ADisplayText: string; var ARepeatEnumeration: Boolean); var     LookKey: string;     LookIndex: Integer; begin     try // finally           if FilterValues = nil then             FilterValues := TStringList.Create;           if Node = nil then             Node := TdxDBGrid(Sender).TopVisibleNode; // Тут все проходит         if IsValueInFilter(FilterValues, Node.Strings[AColumn.Index]) then         begin             Node := TdxDBGrid(Sender).GetNextVisible(Node);             Exit;         end         else             FilterValues.Add(Node.Strings[AColumn.Index]);           ADisplayText := Node.Strings[AColumn.Index];           if TdxDBGrid(Sender).Columns[AColumn.Index].Field.FieldKind <> fkLookup then             AValue := Node.Values[AColumn.Index]         else         begin             LookKey := TdxDBGrid(Sender).ColumnByFieldName(AColumn.FieldName).Field.KeyFields;             LookIndex := TdxDBGrid(Sender).FindColumnByFieldName(LookKey).Index;             AValue := Node.Values[LookIndex];         end;           if AColumn.FieldName = 'LLP_PERSONS_RESULT' then         begin             if AValue = 'D' then                 ADisplayText := 'Отработан';               if AValue = 'W' then                 ADisplayText := 'Ожидание';         end;           if AColumn.FieldName = 'ISMAKET' then         begin             case AValue of             0: ADisplayText := 'Отсутствует';                 1: ADisplayText := 'Фрагмент';                   2: ADisplayText := 'Полный';             end;         end;           if AColumn.FieldName = 'SOURCE_OOPP' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '**********';             end;         end;           if AColumn.FieldName = 'SOURCE_SZVK' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '********';             end;         end;           if AColumn.FieldName = 'SOURCE_PENS' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '*********';             end;         end;           if AColumn.FieldName = 'SOURCE_PTK' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '******************';             end;         end;           if AColumn.FieldName = 'SOURCE_ZAGS' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '*******************';             end;         end;           if AColumn.FieldName = 'SOURCE_MANUAL' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := 'Ручной ввод';             end;         end;           if AColumn.FieldName = 'SOURCE_CZN' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '***************';             end;         end;           if AColumn.FieldName = 'CMN_SOURCE_DREG' then         begin             case AValue of                 0: ADisplayText := '';                   1: ADisplayText := 'Данные из другого региона';             end;         end;           if AColumn.FieldName = 'SOURCE_ASV' then         begin             if VarIsNull(AValue) then                 AValue := 0;               case AValue of                 0: ADisplayText := '';                   1: ADisplayText := '********************';             end;         end;           Node := TdxDBGrid(Sender).GetNextVisible(Node);           if Node = nil then         begin             FilterValues.Free;             FilterValues := nil;             ARepeatEnumeration := False;         end;           CurColumn := AColumn.FieldName;       finally         Inc(FilterDropCount);           if FilterDropCount > MAX_DROP_COUNT then         begin             FilterValues.Free;             FilterValues := nil;             Node := nil;             FilterDropCount := 0;             ARepeatEnumeration := False;         end;     end; end;

Пользовательская функция IsValueInFilter() (вот тут кажется и проблема)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function IsValueInFilter(FValues: TStringList; S: string): Boolean; var   i: Integer;   res: Boolean; begin   res := False;       for i := 0 to FValues.Count-1 do     begin         if FValues[i] = S then         begin             res := True;             Break;         end;     end;       Result := res; end;

[VolgaLEG]

Да, спасибо что откликнулись! Визуально колонки есть на форме(шапка никуда не делась, выбор фильтра доступен). А может ли на это влиять настройки свойства OptionBehavior? У грида на форме FormaErr они шире (Больше true по позициям).

[lmikle]

Ну, проблема точно не в функции IsValueInFilter. Хотя она такая нафиг не нужна. Достаточно сделать

Код:

1	if FilterValues.IndexOf(Node.Strings[AColumn.Index]) > -1 ...

Тут либо в Node нет значения, либо в FilterValues.
Или они указывают на несуществуюший объект. Смотри где они описываются и инициализируются. Возможна ситуация, когда FilterValues описана в какой-то секции, где не происходит инициализация. В таком случае в указателе может быть какое-то значение, поэтому сравнение с Nil не проходит, но объект все-равно не существует. Проверяй как описана эта переменная в обеих формах и где она может быть проинициализированна.

[VolgaLEG]

Спасибо...пойду , куда послали.

[lmikle]

Ну выкладывай полный код форм. Может еще потребуются какие-то модули. Я посмотрю.

[VolgaLEG]

Сообщение от lmikle

Ну выкладывай полный код форм. Может еще потребуются какие-то модули. Я посмотрю.

Ну как бы я с удовольствием.... но скорее всего это не возможно, может только часть. Компонента ExpressQuantumGrid 3.2.2

Может подскажите, какие переменные вывести в отладчике. На форме, где все работает не получается прогнать аналогичную ситуацию по F7. Там всегда при открытии отображаются записи и чтобы установить фильтр когда их не будет....устала рука даже по F8. А как сделть чтобы останов срабатывал на втором проходе не знаю, хотя наверна такая возможность есть.

[lmikle]

Форма, где все работает, интересна только как образец.
Форма, где возникает ошибка - собсвенно то, где надо искать отличие от формы, где все работает.
В сам компонент необходимости лезть я не вижу пока, т.к. он работает, что и демонстрирует форма, где все ок.

Как я сказал ранее, скорее всего одна из переменных в том вызове просто не проинициализированна. Вот эту разницу и надо найти.

[VolgaLEG]

Изучая матчасть, наткнулся на это - https://www.gunsmoker.ru/2009/05/access-violation.html может кому будет интересно

[lmikle]

Угу, читали
Думаю, что в твоем случае это вариант 7.

[VolgaLEG]

Форма где появляется ошибка

[lmikle]

Ну смотри.
Переменная FilterValues в этой форме не описана, соответственно, где она инициализируется неизвестно. Т.е. при некотором описании переменной там может быть мусор в указателе. Соответсвенно, обращение к ней может привести к AV. Тоже самое с переменной Node.
Теперь смотрим на форму, где все ок. Там тоже нет таких переменных или они там описаны локально (в этом случае локальная декларация имеет более высокий приоритет, чем декларация в другом модуле).
Потом можно еще проверить что будет происходить в случае, если сначала вызвать форму, где все ОК, а потом проблемную - возникнет ли ошибка.

[VolgaLEG]

Сейчас сделаю архив работающей формы. пароль тот же Она первая и запускается и весит параллельно (разные окна)

[VolgaLEG]

Форма где все хорошо