Bonjour,
je dois construire un index de fichier.
J'ai déjà stocké la structure de mon index dans un fichier nommé Dico.idx.
Je souhaite récupérer les données dans un tableau de type index mais c'est là que le programme plante.
Le message d'erreur à la ligne 'function genTabIndex(...)' est :
J'ai beau chercher, l'erreur doit être bête mais je ne la trouve pas.Error: Type identifier expected
Fatal: Syntax error, ";" expected but "ARRAY" found
Fatal: Compilation aborted
Je demande votre aide encore une fois !
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Type index = record cle : string[10]; lien : LongInt; end; function genTabIndex(var fileIndex : file of index): array of index; var tabIndex : array of index; idx : index; begin setlength(tabIndex,0); OPEN(fileIndex,'index/Dico.idx'); while not(EOF(fileIndex)) do begin setlength(tabIndex,length(tabIndex)+1); Read(fileIndex,idx); tabIndex[length(tabIndex)-1]:=idx; end; genTabIndex:=tabIndex; end{/genTabIndex};
Partager