AV в FR 3.19

Комментарии

• AlexTZ

  November 2005 отредактировано 00:44

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

  November 2005 отредактировано 00:44

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

  November 2005 отредактировано 00:44

  Уже есть 3.19.6
• Noskov

  November 2005 отредактировано 00:44

  Ошибку нашел в методе 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

  November 2005 отредактировано 00:44

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

  November 2005 отредактировано 00:44

  Как я понял, ошибка возникает при вызове 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.