AV в FR 3.19

Noskov

Периодически при формировании отчета вылетает ошибка Access Violation. Останов происходит на последней строке функции StrToVarType, unit fs_itools.
Появляется она не всегда, примерно один раз из 20, на разных отчетах. Единственная закономерность, которую я заметил - цепочка вызовов в момент ошибки (первые три строки всегда одни и теже):
StrToVarType
ParseMethodSyntax
TfsMethodHelper.Create (первый параметр все время разный)
TfsClassVariable.AddMethod (либо TfsScript.AddMethod)
далее варианты разные...

В предыдущих версиях такого не было. Delphi 6 UpdPack2

AlexTZ

Попробуйте последнюю версию 3.19.5.

Noskov

Именно ее и использую

gpi

Уже есть 3.19.6

Noskov

Ошибку нашел в методе TfsScript.FindLocal. Вот исправленный текст:

function TfsScript.FindLocal(const Name: String): TfsCustomVariable;
var
  i: Integer;
begin
  Result := nil;
  i := FItems.IndexOf(Name);
  if i <> -1 then
{  for i := 0 to Count - 1 do
    if AnsiCompareText(Name, TfsCustomVariable(FItems.Objects[i]).Name) = 0 then}
    begin
      if FItems.Objects[i] is TfsCustomVariable then  //Добавил эту проверку (или, как вариант, if Name='' then)
        Result := TfsCustomVariable(FItems.Objects[i]);
      Exit;
    end;
end;

IndexOf(Name) если Name='' возвращает 0, а в FItems.Objects[0] (а может быть и в Objects с другим индексом) не обязательно лежит ссылка на объект TfsCustomVariable, иногда на TFunctions, отсюда и AV.

Вопрос к разработчикам. Какой из двух вариантов if корректнее?

AlexTZ

Вроде первый. Вообще интересно, при каких условиях появляется ошибка.

Noskov

Как я понял, ошибка возникает при вызове AddMethod когда добавляемый метод является процедурой. Например, AddMethod('procedure Hide', CallMethod) в модуле fs_iformsrtti. В нем вызывается конструктор TfsMethodHelper.Create, из конструктора - ParseMethodSyntax. В ParseMethodSyntax есть строка:
Result := TfsCustomVariable.Create(Name, StrToVarType(TypeName, Script), TypeName);
Параметр TypeName, передаваемый в StrToVarType равен ''. В StrToVarType вызывается Script.Find(TypeName), из него FindLocal(Name), который в этом случае возвращает ссылку на объект TFunctions, приведенную к TfsCustomVariable, а такое приведение некорректно. В результате StrToVarType возвращает либо "мусор" либо появляется AV.