[cotseec]

Код:

begin
date2:=Trim(table1.Cell(j,3).Range.Text);
Label10.Caption:=date2;
...

Trim - обрубает непечатные символы и символы пробела в начале и конце строки

[cadil]

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

Trim - обрубает непечатные символы и символы пробела в начале и конце строки

Спасибо! Это работает!

[cadil]

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

Trim - обрубает непечатные символы и символы пробела в начале и конце строки

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

Код:

 date_month:=table1.Cell(j, 3).Range.Text;
    if ((date_month[4]='0') and (date_month[5]='1')) then   
   begin
 date1:='январе';
   end;
     if ((date_month[4]='0') and (date_month[5]='2')) then
   begin
 date1:='феврале';
   end;
...

[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) ];

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