Работа со скриптами

Комментарии

• AlexTZ

  July 2005 отредактировано 19:43

  Сделал скрипт в демке:
  
  procedure Band4OnBeforePrint(Sender: TfrxComponent);
  begin
  Memo8.Text := <Customers."Comp8any">;
  end;
  
  ошибка выдается, как и положено.
• Bogdan

  July 2005 отредактировано 19:43

  Сорри не совсем корректно описал условия при которых возникает проблема
  
  не работает если
  Memo19.Lines[0] := 'SomeText( ' + <frdsDataSet."FieldName"> + ' SomeText)'
  При этом если поле отсутствует то получаем EConvertError не могу преобразовать тип String в тип Double
• AlexTZ

  July 2005 отредактировано 19:43

  Ошибка выдается.
  Memo8.Text := 'SomeText' + <Customers."Comp8any"> + 'SomeText';
  
• Bogdan

  July 2005 отредактировано 19:43

  function TfsMethodHelper.GetValue: Variant;
  var
    v: Variant;
    i: Integer;
    s: String;
    Instance: TObject;
  begin
    if Assigned(FOnCall) then
    begin
      v := VarArrayCreate([0, Count - 1], varVariant);
      for i := 0 to Count - 1 do
        v[i] := Params[i].Value;
  
      s := Name;
      if FIndexMethod then
        s := s + '.Get';
  
      Instance := nil;
      if not VarIsNull(ParentValue) then
        Instance := TObject(Integer(ParentValue));
  
      Result := FOnCall(Instance, FClassRef, AnsiUpperCase(s), v);
      for i := 0 to Count - 1 do
        if Params[i].IsVarParam then
          Params[i].Value := v[i];
      v := Null;
    end
    else
      Result := 0;
  end;
  

  
  У меня получается не Assigned(FOnCall) соответственно я получаю значение 0
  Интересно почему 0 а не Null или Unassigned ?
• Bogdan

  July 2005 отредактировано 19:43

  Разобрался в чём дело

  function TfrxReport.DoGetValue(const Expr: String; var Value: Variant): Boolean;
  var
    i: Integer;
    ds: TfrxDataSet;
    fld: String;
    v: TfsCustomVariable;
    val: Variant;
  begin
    Result := False;
    Value := Null;
  
    { maybe it's a dataset/field? }
    GetDataSetAndField(Expr, ds, fld);
    if (ds <> nil) and (fld <> '') then
    begin
      Value := ds.Value[fld];
      if FEngineOptions.ConvertNulls and (Value = Null) then
        case ds.FieldType[fld] of
          fftNumeric:
            Value := 0;
          fftString:
            Value := '';
          fftBoolean:
            Value := False;
        end;
      Result := True;
      Exit;
    end;
  

  
  ds.Value[fld] возвращает Null и пишет frxErrors ошибку
  ds.FieldType[fld] если не находит поле возвращает fftNumeric
  соответственно получаем EConverterror так как ожидали String затем
  по результатам frxErrors получаем сообщение о отсутствии поля.