bug in uSetUtils.pas

• 报告人: (匿名)
• 属主: (无)
• 类型: Bugs
• 状态: 关闭
• 组件: (无)
• 里程碑: (无)
• 优先: 5 - Medium
• 严重性: 5 - Medium
• 处理结果: Fixed
• 文件: 无

Details 回复

uSetUtils.pas, line 53:
-------------
Result := '[';

for i := pd.MinValue to pd.MaxValue do
if (pi^ and (1 shl i)) <> 0 then
if Result = '' then Result :=
^^^^^^^^^^^ This contidions is always true
GetEnumName(CompType, i)
else Result := Result + ', ' +

GetEnumName(CompType, i);
Result := Result + ']';
-------------

That code will give extra ',' at start (e.g. [,fsBold])

任务单历史 (3/3 Histories)

2004-05-01 11:56 Updated by: take_tk

评论 回复

Logged In: YES
user_id=908

Thank you for your report.

CVS was corrected.

http://cvs.sourceforge.jp/cgi-bin/viewcvs.
cgi/apollo/apollo/src/uSetUtils.pas.diff?r1=1.1&r2=1.
2&sortby=date

cf. [ap-dev:1531] SetToStr

2004-05-01 11:59 Updated by: take_tk

• 处理结果 Update from 无 to Fixed

2004-12-28 13:19 Updated by: moriq

• Ticket Close date is changed to 2004-12-28 13:19
• 状态 Update from 开启 to 关闭