Проблемы работы скриптов в версии 1.8

Комментарии

• [m]

  June 2005 отредактировано 23:57

  извини что вмешиваюсь, но как ты заставил работать конструкцию
  q.ParamByName('Nomer').Value
  ?
  У меня на ParamByName сваливается с ошибкой стека
• Eugene Lachinov Санкт-Петербург

  June 2005 отредактировано 23:57

  Видимо нужно обращаться в службу поддержки по E-Mail, эти ошибки исправлены в последних версиях FastScript, который идет с FastReport
• [m]

  June 2005 отредактировано June 2005

  у меня вроде как раз такая версия и есть - 1.8 которая вместе с fastreport...
  проблемы у меня с подключением класса TOraQuery - на С я не могу скомпилить код (см. сообщение ниже), на паскале вроде код собрался, класс виден, но попытки вызова ParamByName или даже простой new TOraQuery() дает ошибку стека.
• Vadim Mescheryakov

  June 2005 отредактировано 23:57

  [m] написал:

  извини что вмешиваюсь, но как ты заставил работать конструкцию
  q.ParamByName('Nomer').Value
  ?
  У меня на ParamByName сваливается с ошибкой стека

  Сразу после регистрации класса TParams появляется возможность обращаться к published свойству Value
• Vadim Mescheryakov

  June 2005 отредактировано June 2005

  Eugene Lachinov написал:

  Видимо нужно обращаться в службу поддержки по E-Mail, эти ошибки исправлены в последних версиях FastScript, который идет с FastReport

  
  Взял демопроект FastReport 3 (от 25.06.2005)
  
  Создал запрос q
  
  В скрипте повесил обработчик:
  
  q.DatabaseName := 'DBDemos';
  q.SQL.Clear;
  q.SQL.Add('Select * from "orders.db" where CustNo=:Nomer');
  q.ParamByName('Nomer').Value := 6;
  q.Open;
  
  Все та же проблема - не указан тип.
  А тип указать явно невозможно (отсутствует регистрацич свойств класса TParam), то есть нельзя написать
  
  q.ParamByName('Nomer').AsInteger := 6;
  Так как для класса TParam не зарегистрированы свойства
  
  А ведь раньше то работало.
  
  
  Где в исходниках исправить?
• Vadim Mescheryakov

  July 2005 отредактировано 23:57

  Ошибка с ParamByName('Nomer').Value := 6
  
  Возникает из за того что в Delphi7 число 6 передается как Int64 а не как Integer
  
  а TQuery не поддерживает Int64
  
  решается так:
  
  function ParserStringToVariant(s: String): Variant;
  var
  i: Int64;
  k: Integer;
  iPos: Integer;
  begin
  Result := Null;
  if s <> '' then
  if s[1] = '''' then
  Result := Copy(s, 2, Length(s) - 2)
  else
  begin
  Val(s, i, k);
  if k = 0 then
  {$IFDEF Delphi6}
  // Vad Result := i
  Result := Integer(i)
  //
  {$ELSE}
  Result := Integer(i)
  {$ENDIF}
  
  
  Спасибо автору за внимание и оперативную реакцию на возникающие вопросы