Здравствуйте, 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':
...
{
<>
}
}