[cadil]

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

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

Спасибо! Воспользовался первым вариантом:

Код:

 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:='феврале';
   ...