Здравствуйте, 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
