Конвертация данных Str -> Int...

Комментарии

• Georgy

  April 2005 отредактировано 07:26

  Чем помогать-то?) Как именно, и что конвертируешь? Код, плз...
• OLE!

  April 2005 отредактировано 07:26

  begin
  if [DMOrders.qryOrderGoods."OP_CODE"] = '1601'
  then a := [edit1.text]
  else a := 1;
  incVar:= StrToInt(a)
  end
  
  Задача стоит следующая: пользователь вводит в текстовое поле данные(цифры), затем их нужно преобразовать в число для дальнейших математических операций... Наприм ввел текст 23, надо получить число 23.
• Georgy

  April 2005 отредактировано 07:26

  и как обьявлена переменная а ? Если string то, видимо не:
  else a := 1;
  а
  else a := '1';
  и что вообще происходит, ошибка какая?)
  Кстати, для обработки пользовательского ввода хорошо обернуть StrToIntDef, VarToStrDef да и вообще это полезные ф-ции. Альтернатива - используй try блок.
• OLE!

  April 2005 отредактировано 07:26

  В том то и дело, что никак не ругается. Просто не выводит на экран обработанную переменную.
• OLE!

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

  А может дело в версии FR? У меня 2.46
  
  --
  <span style='color:red'>А почему тогда сообщение в форуме FastReport 3?</span>
• -=Serg=-

  April 2005 отредактировано 07:26

  Не нужно ни какое преобразование типов. Вот такой код прекрасно работает:
  
  begin
  n := 5;
  s := '10';
  p := n + s;
  end
  
  в результате p = 15
• Georgy

  April 2005 отредактировано 07:26

  Если переменная не объявлена, то извольте иметь все плюсы и минусы вариантов. Всегда будьте готовы к чему-нибудь вроде 1 + 3 = 13. В принципе, не объявлять переменные - это грабли.
• OLE!

  April 2005 отредактировано 07:26

  Да, действительно 2 + '2' = 4... кто бы мог подумать... похоже это выход.
  Огромное спасибо!!! Очень выручили! Теперь ясно, почему разработчики не включили в описание функции вроде StrToInt.
• OLE!

  April 2005 отредактировано 07:26

  Хотя, возможно, какие-то средства конвертации в Int добавлены в 3.0 версии программы. По крайней мере в 2.46 заставить их работать не получилось.
• Georgy

  April 2005 отредактировано 07:26

  почему же не включили? RTFM:
  FastScript 1.7 Библиотека скриптов Руководство разработчика лежит:
  http://fast-report.com/pbc_download/files/fs_ru.pdf там есть описание:
  
  function VarToStr(v: Variant): String
  Перевод variant в строку
  function StrToInt(s: String): Integer
  Перевод строки в целое
  
  они обернуты с первых версий FS, а VarToStrDef и StrToIntDef оберни самостоятельно, например:

    with fsGlobalUnit do
    begin
      AddMethod('function StrToIntDef(const S: string;'+
        'const Default: Integer): Integer', CallMethod);
      AddMethod('function VarToStrDef(const V: Variant;'+
        'const ADefault: string): string', CallMethod);
      . . .
    end;
  . . .
      if MethodName = 'STRTOINTDEF' then
        Result := StrToIntDef(Params[0], Params[1])
      else
      if MethodName = 'VARTOSTRDEF' then
        Result := VarToStrDef(Params[0], Params[1])
      else
  . . .
  

  И не забывай про Null, когда имеешь дело с вариантами 8-)
• Georgy

  April 2005 отредактировано 07:26

  если 2.46 то он кажись на старом ядре без FastScripta ? тады ой
• OLE!

  April 2005 отредактировано 07:26

  Эту доку я не видел и не искал, так как имею fr_rus.doc, а там тока про FR. FastScript нужно дополнительно устанавливать к FR? Если да, то ясно почему у меня траблы с вызовом функций.
• -=Serg=-

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

  FastScript, как отдельный компонент, идет в комплекте с FR3
• OLE!

  April 2005 отредактировано 07:26

  Ладно, спасибо -=Serg=- и Georgy. Похоже все теперь ясно. Всем пока.