<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Can you give more information about your function.<br><br>=============INTOSOFT============<br>
           ALEXIO CHAOS<br>
   Darmawan_Sugiarto@yahoo.com   <br>
          Yahoo Messager<br>
=================================<br><br>--- On <b>Mon, 1/19/09, Dave Coventry <i><dgcoventry@gmail.com></i></b> wrote:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>From: Dave Coventry <dgcoventry@gmail.com><br>Subject: [Lazarus] Passing an array to a function<br>To: lazarus@miraclec.com<br>Date: Monday, January 19, 2009, 6:20 AM<br><br><div class="plainMail">I have a function that I'm trying to pass an array to.<br><br>function FieldValueAsString(fsbuffer: array of Byte; fitype,fisize:<br>integer): string;<br><br>Calling the function:<br><br>setlength(fsbuffer,recordsize);<br>FS:=TFileStream.Create(fname, fmshareDenyWrite);<br>FS.Seek(seekpos,soFromBeginning);<br>FS.ReadBuffer(fsbuffer,recordsize);<br>dfstring:= FieldValueAsString(fsbuffer,fitype,fisize);<br><br>Generates the error "Project raised exception class SIGSEGV"<br>_______________________________________________<br>Lazarus
 mailing list<br><a ymailto="mailto:Lazarus@lazarus.freepascal.org" href="/mc/compose?to=Lazarus@lazarus.freepascal.org">Lazarus@lazarus.freepascal.org</a><br><a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br></div></blockquote></td></tr></table><br>