Цитата:
|
Сообщение от 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;
...