CnPack Forum

#1 CnPack Delphi Bug 集
CnPack Delphi Bug 集

整理： SkyJacker
http://www.cnpack.org
CnPack IV QQ Group: 130970
Bug发布人: 谁知我心

2007-3-16 谁知我心发布以下 D6 Bug
Bug1:
unit Masks;
function Matches(P: PChar; Start: Integer): Boolean;

中的
msMBCSLiteral:
while (P^ <> #0) do
begin
if (P^ <> LeadByte) then Inc(P, 2)
else
begin
Inc(P);
if (P^ = TrailByte) then
Break;-->bug
Inc(P);
end;
end;

解决:
if (P^ = TrailByte) then
begin
dec(P);
..

#1 >>Next Page

Forum:技术板块灌水区 ...
Thread:CnPack Delphi Bug 集 ...
Next Thread:请教一个BDE连接acces ...

Home
Login

Powered by Discuz!