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

Комментарии

• -=Serg=-

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

  Возвращайте исходное значение:
  
  if (<p> <4)
  Memo1.Color=clRed;
  else
  Memo1.Color=clWhite;
• Buka

  December 2005 отредактировано 12:19

  C цветом-то как раз все удобно. а если у меня значение из Query, то заново присваивать значение?
  Я так сделала: Memo1.Text="<Query.Field1>";
  
  но как тогда его отформатировать, чтобы убрать лишние знаки после запятой??
  
  Я делала как Memo.DisplayFormat.FormatStr="%2.2f", но это не срабатывает. вот фигня!
• gpi

  December 2005 отредактировано 12:19

  написал:

  Я делала как Memo.DisplayFormat.FormatStr="%2.2f", но это не срабатывает. вот фигня!

  Вот так должно работать

  Memo1.DisplayFormat.FormatStr:='%2.2n';
  Memo1.DisplayFormat.Kind:=fkNumeric;
  

  или

  Memo1.Text:=FormatFloat('# ###.##',<Query.Field1>);
  
• Buka

  December 2005 отредактировано 12:19

  У меня все равно не получается.
  я пишу так:
  Memo1.Text=FormatFloat("%2,2f",<Query."Field1">);
  и так:
  Memo1.Text=FormatFloat("#n%2,2f",<Query."Field1">);
  он выводит на экран 2 n%22m.
  
  если я задам просто строку :
  Memo1.Text=FormatFloat("",<Query."Field1">);
  то выводит нужное значение, тока неотформатированное. как отформатировать? я уже и с одинарными кавычками писала строку форматирования. все равно не получается.
  
  
• -=Den=-

  December 2005 отредактировано 12:19

  Такой вариант должен работать (gpi его уже педлогал с.м выше):

  Memo1.text =FormatFloat("#.##",<ADOTable1."Field1">);
  
• Buka

  December 2005 отредактировано 12:19

  Я поняла, почему у меня не форматирует.
  
  дело в том, что я добавляю Memo программно. И при его расположении на форме я обращаюсь к нему как к компоненту IfrxCustomMemoView, у которого доступно только свойство Put_Text. Но недоступны свойства DataSet и DataField. а если в них пусто, то выводит все значения, но не производит форматирование.
  
  Так что это теперь новая проблема. В Visual С++. Попробую сейчас в скрипт прописать, где для Мемо установлю эти два свойства:
  Но как тогда прописать:
  Memo1.DataSet="Query";
  Memo1.DataField="Field1";
  
  
  Memo1.DataSet="Query"; не работает. в каком формате-то надо указывать имя Dataset-а???
  
• gpi

  December 2005 отредактировано 12:19

  написал:

  И при его расположении на форме я обращаюсь к нему как к компоненту IfrxCustomMemoView, у которого доступно только свойство Put_Text.

  А почему не обратиться как к TfrxMemoView?

  написал:

  Memo1.DataSet="Query"; не работает. в каком формате-то надо указывать имя Dataset-а???

  Если посмотреть вкладку КЛАССЫ, то для TfrxMemoView:
  property DataSet: Class TfrxDataSet;
  property DataSetName: String;
  через DataSetName работает, а вот как через DataSet - не знаю. Может разработчики что-то посоветуют?
• -=Den=-

  December 2005 отредактировано 12:19

  Для C++ Script (VC++) попробуйте так:

  pCustomMemoView->put_Text(_bstr_t("[FormatFloat(\"#.##\",") + _bstr_t(YOUR_VALUE) + _bstr_t(")]"));
  

  Обратите внимание в YOUR_VALUE должно быть ваше значение, если значение с плавающей точкой, то проследите чтобы оно сконвертировалось в строку вида "10.20"(по умолчанию будет "10,20" и FR выдаст ошибку).