I have a function that I'm trying to pass an array to.

function FieldValueAsString(fsbuffer: array of Byte; fitype,fisize:
integer): string;

Calling the function:

setlength(fsbuffer,recordsize);
FS:=TFileStream.Create(fname, fmshareDenyWrite);
FS.Seek(seekpos,soFromBeginning);
FS.ReadBuffer(fsbuffer,recordsize);
dfstring:= FieldValueAsString(fsbuffer,fitype,fisize);

Generates the error "Project raised exception class SIGSEGV"
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to