Exception on Pascal Array -

Exception on Pascal Array -

i got next problem: source-code compiles , runs correct, if out of method:

procedure pconnect.sethostinformation(hostinformationlist: array of variantmap); var i, count: integer; begin if mlibraryloaded = true begin count:= length(hostinformationlist)-1; i:=0 count dpinit_sethostinformation(utf8encode(hostinformationlist[i].key), utf8encode(hostinformationlist[i].value)); end; end;

the exception: "external:sigsegv" triggered. i'm calling methode following:

var hostinformationlist: array of variantmap; begin setlength(hostinformationlist, 3); hostinformationlist[0].key:='language'; hostinformationlist[0].value:='de'; hostinformationlist[1].key:='systemtype'; hostinformationlist[1].value:='mis'; hostinformationlist[2].key:='systemname'; hostinformationlist[2].value:='albis'; sethostinformation(hostinformationlist); end;

i happy fast reply :)

arrays exception pascal