首先引用typinfo單元
type
tcommandenum = (_aa, _bb, _cc, _dd, _ee, _ff, _gg, _hh);
procedure tcommandprocess.processcmd(chn: byte; cmd, s: string);
var cmdenum:tcommandenum ;
begin
cmdenum :=tcommandenum(getenumvalue(typeinfo(tcommandenum), '_'+cmd));
case cmdenum of
_aa: processaa(chn, s);
_bb: processbb(chn, s);
_cc: processcc(chn, s);
_dd: processdd(chn, s);
_ee: processee(chn, s);
_ff: processff(chn, s);
_gg: processgg(chn, s);
_hh: processhh(chn, s);
end;
end;
使用上面的方法可以提高程式的可讀性Delphi在case語句中使用字串
在 case 語句中使用字串 by 熊恆 beta 我今天要介紹的是乙個比較另類的方法。大家都知道，case 語句只能對順序型別 ordinal type 管用，那麼我們先看一下順序型別到底有那些呢 1 整型 2 字 符型 3 列舉型。於是也就演化出三種在 case 語句裡面使用字串的方法 耐心看下...
在do while語句中使用continue的誤解
先貼一段 int i 0 dowhile i 10 以前我一直以為，continue就是跳轉到do開始的位置，所以就認為上面這段程式將會是乙個死迴圈。其實卻不然，continue會跳到 處，並不會跳過do while的條件判斷。下面是摘自cppreference上對continue的定義舉例 do ...
幾個sql語句中的case使用
表結構 field type null key default extra id int 11 no pri name varchar 20 yes null char 1 yes null addr varchar 50 yes null 1.select id,name case when m ...