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 :
Error: Type identifier expected
Fatal: Syntax error, ";" expected but "ARRAY" found
Fatal: Compilation aborted
J'ai beau chercher, l'erreur doit être bête mais je ne la trouve pas.
Je demande votre aide encore une fois !
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};
Merci