[Admin]

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

Вообщем у меня была задачка цифорки перевести в слова...я сделал её, но по кривому( через If, вот решил переделать под Case, но прога отказывает работать( Подскажите плз де у мя не правильно, и как сделать, чтобы всё было кул)Заранее благодарен)

Код:

a:=copy(edit1.Text,1,1);
case a of
 '1': label1.Caption:='Один';
end;

Код:

 a:=copy(edit1.Text,1,1);
 case StrToInt(a) of
  1: label1.Caption:='Один';
 end;