[kobezzza]

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

Код:

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

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

[Thrasher]

Еще можно так (способ из очень далёкого прошлого, когда не было функции IntToStr):

Код:

var C:char
begin
C:=edit1.Text[1];
case Ord(C)-$30 of
1:label1.Caption:='Один';
end;
end;

или так:

Код:

var C:char
begin
C:=edit1.Text[1];
case C of
#$31:label1.Caption:='Один';
end;
end;

[Gad99]

В общих чертах все это сводится к тому что оператор CASE неможет оперировать строковыми типами
Кстати можно попробовать еще так:

Код:

Var a : integer;
Begin
 a := StrToInt(copy(edit1.Text,1,1));
 Case a of
 1 : label1.Caption:='Один';
   Else label1.Caption:='Неизвестное человечеству число';
 End;
End;

[<<D>>]

Раз тема открыта, продолжу.
Меня интересует как использовать
case для строки String.
Пример:

Код:

case str of
'Текст': Команда;
end;

Помогите пож!

[Dux]

Да, вопрос интересный. Я тоже как-то сталкивался, но ответа, насколько помню, не нашел..

[:S.p.a.m.]

Сообщение от <<D>>

Раз тема открыта, продолжу.
Меня интересует как использовать
case для строки String.
Пример:

Код:

case str of
'Текст': Команда;
end;

Помогите пож!

вот что нашел через гугл
http://www.delphisources.ru/pages/fa...str_case2.html

[M.A.D.M.A.N.]

PHP код:

case UpperCase(Str[1]) Of
  'O':If UpperCase(Str)='ONE' Then {Some procedure or function};
  'T':If UpperCase(Str)='TWO' Then {Some procedure or function}
    Else If UpperCase(Str)='THREE' Then {Some procedure or function}; 
end; 


[<<D>>]

Всем спасибо! Помогли!

[Dux]

Сообщение от M.A.D.M.A.N.

PHP код:

case UpperCase(Str[1]) Of
  'O':If UpperCase(Str)='ONE' Then {Some procedure or function};
  'T':If UpperCase(Str)='TWO' Then {Some procedure or function}
    Else If UpperCase(Str)='THREE' Then {Some procedure or function}; 
end; 


В этом случае теряется смысл использования case, т.к. вы все-равно работаете с IF THEN ELSE