А как вот это перевести
case FirstChar of
'0'..'9' :Result:=ltNumber;
'a'..'z','_' :Result:=ltVariable;
'+','-','/','*','^':Result:=ltBinOp;
'~' :Result:=ltUnOp;
'(' :Result:=ltOpenBrick;
')' :Result:=ltCloseBrick;
...
как вот '0'..'9' описать
Здравствуйте, KolanT, Вы писали:
KT>Здравствуйте, KolanT, Вы писали:
KT>А как вот это перевести KT>case FirstChar of KT> '0'..'9' :Result:=ltNumber; KT> 'a'..'z','_' :Result:=ltVariable; KT> '+','-','/','*','^':Result:=ltBinOp; KT> '~' :Result:=ltUnOp; KT> '(' :Result:=ltOpenBrick; KT> ')' :Result:=ltCloseBrick; KT>... KT>как вот '0'..'9' описать
switch(FirstChar
{
case '0':
case '1':
case '2':
case '3':
case '4':
...
{
<>
}
}
Здравствуйте, KolanT, Вы писали:
KT>Здравствуйте, Poirot, Вы писали:
KT>Блин думал сюда уже никто не заглянет тему создал.
KT>case '0': KT>case '1': KT>case '2': KT>case '3': KT>case '4': KT>Нет не пойдет, что с буквами делать их то не 10.
а подругому только if использовать!