Pascal数组的例外情况

Question

我遇到了以下问题：我的源代码编译并运行正确，但如果我退出此方法：

procedure PConnect.setHostInformation(hostInformationList: array of VariantMap);
var i, count: integer;
begin
    if mLibraryLoaded = true then
    begin
        count:= Length(hostInformationList)-1;
        for i:=0 to count do
            dpinit_setHostinformation(UTF8Encode(hostInformationList[i].key), UTF8Encode(hostInformationList[i].value));
    end;
end;     

例外：将触发“外部：SIGSEGV”。 我称这个方法如下：

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;           

我很乐意快速回答:)