Как на си будет:
case Lexem of
'0'..'9' :Result:=ltNumber;
'a'..'z','_' :Result:=ltVariable;
'+','-','/','*','^':Result:=ltBinOp;
'~' :Result:=ltUnOp;
'(' :Result:=ltOpenBrick;
')' :Result:=ltCloseBrick;
else
...
end

с '0'..'9' не знаю сё делать.

switch (Lexem)
{
case '0'..'9' : return ltNumber;
}

Здравствуйте, KolanT, Вы писали:

KT>Как на си будет:
KT> case Lexem of
KT> '0'..'9' :Result:=ltNumber;
KT> 'a'..'z','_' :Result:=ltVariable;
KT> '+','-','/','*','^':Result:=ltBinOp;
KT> '~' :Result:=ltUnOp;
KT> '(' :Result:=ltOpenBrick;
KT> ')' :Result:=ltCloseBrick;
KT> else
KT> ...
KT> end

KT>с '0'..'9' не знаю сё делать.

KT> switch (Lexem)
KT> {
KT> case '0'..'9' : return ltNumber;
KT> }

http://www.rsdn.ru/Forum/Message.aspx?mid=933788&only=1

Автор: Poirot
Дата: 06.12.04