我们面临数据类型双重比较的问题:
if(p > pmax) then begin Showmessage(''); end
如果两个值都是100(p = 100和pmax = 100),那么它也会进入if子句.
delphi types
delphi ×1
types ×1