[icWasya]

Сообщение от cadil

В предыдущем сообщении погорячился - положительного результата с Trim не достиг.
Грубовато, но пришлось сделать так:
...

Ну если совсем так

Код:

 
  date_month:=table1.Cell(j, 3).Range.Text;
  date_month=system.copy(date_month,4,2);//!!!!!
  case StrToInt(date_month) of
   1 : date1:='январе';
   2 : date1:='феврале';
   3 : date1:='марте';

   end;
...

или даже так

Код:

const
  InMonth:array[1..12] of string =
('январе','феврале','марте','апреле','мае','июне',
'июле','августе','сентябре','октябре','ноябре','декабре');

  date_month:=table1.Cell(j, 3).Range.Text;
  date_month=system.copy(date_month,4,2);//!!!!!

  date1 := InMonth[ StrToInt(date_month) ];