<div dir="ltr"><br><br>
<br><br><div class="gmail_quote">On Wed, Feb 2, 2011 at 10:20, Amit Bueno <span dir="ltr"><<a href="mailto:amitbueno@gmail.com">amitbueno@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

<div link="blue" vlink="purple" lang="EN-US"><div><p class="MsoNormal">I am writing an application on iMac, and having problem dynamically creating objects and reading them into an array:</p><p class="MsoNormal"> </p><p class="MsoNormal">

// I got the following object:</p><p class="MsoNormal">     PChunk = ^Chunk;</p><p class="MsoNormal">     Chunk = Object</p><p class="MsoNormal">              SubChunks: array of PChunk;</p><p class="MsoNormal">              Data: Pointer; .</p>

<p class="MsoNormal"></p><p class="MsoNormal">              Function NewSubchunk: integer;</p><p class="MsoNormal">              Procedure Read(var Fl: TStream);</p><p class="MsoNormal">              Constructor Create;</p>

<p class="MsoNormal">              Destructor Destroy;</p><p class="MsoNormal">             end;</p><p class="MsoNormal"> </p><p class="MsoNormal">// creating and reading more data</p><p class="MsoNormal">SubChunks[NewSubChunk]^.read(Fl);</p>

<p class="MsoNormal"> </p><p class="MsoNormal">// NewSubChunk function</p><p class="MsoNormal">Function Chunk.NewSubchunk: integer;</p><p class="MsoNormal">begin</p><p class="MsoNormal">  setlength(SubChunks, High(SubChunks)+2);</p>

<p class="MsoNormal">  New(subchunks[High(SubChunks)], create);</p><p class="MsoNormal">  SubChunks[High(SubChunks)]^.Data := Self.Data;</p><p class="MsoNormal">  Result := High(SubChunks);</p><p class="MsoNormal">end;</p>

<p class="MsoNormal"> </p><p class="MsoNormal">// ---------</p><p class="MsoNormal">The procedure fails when running the:</p><p class="MsoNormal">SubChunks[NewSubChunk]^.read(Fl);</p><p class="MsoNormal"> </p><p class="MsoNormal">

All the procedure works fine on Delphi, but on fpc under iMac it fails.</p><p class="MsoNormal">Why?</p></div></div></blockquote><div><br>What is the error message you are having ?<br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

<div link="blue" vlink="purple" lang="EN-US"><div><p class="MsoNormal"> </p><p class="MsoNormal">Regards,</p><p class="MsoNormal"> </p><font color="#888888"><p class="MsoNormal"><b><i>Amit</i></b></p><p class="MsoNormal">

 </p></font></div></div><br>_______________________________________________<br>
fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br></blockquote></div><br><br>Ido<br clear="all">LINESIP - Opening the source for communication<br>

<a href="http://www.linesip.com/" target="_blank">http://www.linesip.com</a><br><a href="http://www.linesip.co.il/" target="_blank">http://www.linesip.co.il</a><br><br></div>