Comment réparer cette erreur EInvalidPointer lors de la traduction de Free Pascal en Delphi?

Question

Nous essayons d'utiliser Delphi dans un fichier pas généré par Free Pascal. Le lien est à: http://www.markwatson.com/opensource/FastTag_Pascal.zip

Lors du test, il invite InValidPointer. Veuillez regarder la ligne d'erreur suivante dans le débogueur.

interface 

procedure ReadLexicon; 
type sarray = array[1..12] of string; 
type big_sarray = array[1..1000] of string; { used for word lists and tags: limit on size of input text } 
type psarray = ^sarray; 

{function GetTagList(word: string): psarray;} 
procedure TagWordList(wordList : big_sarray; var tags : big_sarray); 

implementation 

uses SysUtils, Classes; 

{  Hash Table Support - copied from FreePascal source: benchmork shootout examples } 

type 
    THashEntryPtr = ^THashEntryRec; 
    THashEntryRec = record 
     name : string; 
     number : psarray; 
     next : THashEntryPtr; 
    end; 

const 
    TABLE_SIZE = 100000; 

... 
... 
... 
function GetTagList(word: string): psarray; 
var 
ret : psarray; 
ok : boolean; 
begin 
ok := localHash.fetch(word, ret); 
if ok then GetTagList := ret else GetTagList := nil; 
end; 

procedure TagWordList(wordList : big_sarray; var tags : big_sarray); 
var i : integer; 
    x : real; 
    psa : psarray; 
    lastThreeChars : string; 
    lastTwoChars : string; 
    lastChar : string; 
    firstTwoChars : string; 
    tagFirstTwoChars : string; 
    begin 
for i := 0 to length(wordList) do 
    begin 
    **psa := GetTagList(wordList[i]);///// EInvalidPointer ERROR** 
    if psa <> nil then tags[i] := psa^[1] else tags[i] := '???'; 
    end; 

... 
... 
... 

Comment pouvons-nous le réparer. Merci beaucoup d'avance.

Answer 1

La source d'origine ne définit aucun mode de compilation, et donc le mode TP par défaut est actif, ce qui signifie string = shortstring.

Remplacez, dans toute la chaîne source, par une chaîne courte et cela fonctionnera probablement.

Answer 2

Il y a au moins deux erreurs que je peux trouver dans la procédure TagWordList.

1. for i := 0 to length(wordList) do, la matrice est à base de 1-de sorte que la boucle doit commencer par 1.
2. Un peu plus tard, il y a une vérification if i > 0 qui échoue pour la même raison.

Il pourrait aussi s'agir d'une mauvaise définition du type big_sarray = array[1..1000] of string;. Si vous modifiez cela en un tableau basé sur 0, cela pourrait fonctionner.