#1 代码高亮的一处错误
procedure TThsj.CBThsjKeyPress(Sender: TObject; var Key: Char);
begin
if CBThsj.Style = csSimple then
begin
case TField(CBThzd.Items.Objects[CBThzd.ItemIndex]).DataType of
ftSmallint, ftInteger, ftLargeint, ftWord, ftBytes: {整型}
if not (key in ['0'..'9', #8, #3, #22]) then
key := #0;
ftFloat, ftCurrency, ftBCD: {浮点型}
if not (key in ['0'..'9', '.', #8, #3, #22]) then
key := #0
else //这里的高亮匹配不� ..

#1 >>Next Page

Forum:CnPack IDE 专家包（CnW ...
Thread:代码高亮的一处错误 ...
Next Thread:代码高亮的一处错误-- ...

Home
Login

Powered by Discuz!