Цитата:
|
Сообщение от 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:='феврале';
...