hi all,<br><br>i am trying to replace the code from delphi to fpc where the code looks like:<br><br>
TYPE THackReader =class(TReader);<br>
<br>
...<br>
<br>    FReaderStream.Position := 0;<br>
    {$IFDEF FPC}<br>
    try<br>
      FReader.ReadListBegin;<br>
      while not FReader.EndOfList do begin<br>
        THackReader(FReader).ReadProperty(Obj1);<br>
      end;<br>
      Freader.ReadListEnd;<br>
    except<br>
    end;<br>
<br>
    {$ELSE}<br>
    FReader.Position := 0;<br>
    try<br>
      while FReader.Position < FReaderStream.Size do<br>
        THackReader(FReader).ReadProperty(Obj1);<br>
    except<br>
    end;<br>
    {$ENDIF}<br>
<br>
<br>
but my code in FPC raises an exception in ReadListBegin method and I am 
not sure if it is correct way to read back properties to Obj1.<br>
<br>
PS: How can I debug TReader class, because debuger steps over my calls from TReader.<br>
<br>
Thanx.<br>
<br>
Fred.<br>
<br>