[fpc-pascal] fcl-xml

[Mattias Gaertner]

On Tue, 12 Mar 2013 12:21:10 +0100
dev.dliw at gmail.com wrote:

>[...]
> Just rechecked again...
> The debugger clearly says, that reader.IDMap / FIDMap is nil...
> [Before the second assignement - of course :) ]
> 
> >It seems to be started, but not finished.
> If so, what needs to be done?

Maybe the bug is that it checks case sensitive:

procedure TXMLTextReader.ParseAttlistDecl;
...
          Found := FSource.Matches(AttrDataTypeNames[dt]);
...

function TXMLCharSource.Matches(const arg: WideString): Boolean;
begin
  Result := False;
  if (FBufEnd >= FBuf + Length(arg)) or Reload then
    Result := CompareMem(Pointer(arg), FBuf, Length(arg)*sizeof(WideChar));
  if Result then
  begin
    Inc(FBuf, Length(arg));
    if FBuf >= FBufEnd then
      Reload;
  end;
end;


Mattias