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

71VLNet

Делаю запрос...
получаю прим. такую таблицу
Месяц Сумма
1 ...
2 ...
3 ...
... ...

Как изменить 1 в Memo на 'Январь' и т.д.
Делал
begin
if <DBDataSet1."MonthRep"> = 1 then Memo2.Text := ' Январь'; // на Memo2.Memo вообще ругается
... соответственно ... 2 ... 'Февраль'
end

Ничего не получается .
Помогите! Спасибо!

-=Serg=-

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

Lex

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

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

А в Memo

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

должно получится

Direx

Надо сделать не так.

Обработчик OnAfterPrint

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

Direx

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

Markus

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

Direx

Markus написал:

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

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

71VLNet

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

Всем спасибо!