Изменение текста в Memo

Комментарии

• -=Serg=-

  August 2005 отредактировано 06:37

  В каком месте этот скрипт?
• Lex

  August 2005 отредактировано 06:37

  Напиши в скрипте отчета функцию
  

  function MonthAsString(MonthNumber:Byte):String;
  begin
    case MonthNumber of
      1: Result:= 'Январь';
      .............................
      .............................
    end;
  end;
  

  
  А в Memo

    [MonthAsString(<DBDataSet1."MonthRep"> )]
  

  должно получится
  
  
  
  
• Direx Москва

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

  Надо сделать не так.
  
  Обработчик OnAfterPrint
  

  case StrToInt(TfrxMemoView(Sender).Text) of
    1: TfrxMemoView(Sender).Text := 'Январь';
    2: TfrxMemoView(Sender).Text := 'Февраль';
   ...
  
• Direx Москва

  August 2005 отредактировано 06:37

  Прошу прошения, не дочитал предыдущий пост..
  Так тоже можно ))
• Markus

  August 2005 отредактировано 06:37

  А может проще прикрутить собственную функцию и спокойно вызывать в отчётах, и не городить новый огород для каждого отчёта.
• Direx Москва

  August 2005 отредактировано 06:37

  Markus написал:

  А может проще прикрутить собственную функцию и спокойно вызывать в отчётах, и не городить новый огород для каждого отчёта.

  Если это нужно в нескольких отчётах - то, естественно, лучше.
• 71VLNet

  August 2005 отредактировано 06:37

  Сделал как предложил Lex - Спасибо!
  Мне это нужно было всего лишь в одном отчёте.
  
  Всем спасибо!