Fonction renvoyant un array of type

Version imprimable

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 :

Citation:

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:

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

salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Type index = record
        cle : string[10];
        lien : LongInt;
      end;
      FA = file of index;
      IA = array of index;
function genTabIndex(var fileIndex : FA): IA;
var tabIndex : IA;
	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};

12/12/2006, 17h00
zekiller3

merci ça marche impec :D
mais bon je ne comprends pas pourquoi il faut passer par des constantes :?
12/12/2006, 23h03
Loceka

Parce que les fonctions/méthodes en Pascal n'accèptent pas de types composés en arguments ni en type retour (Il faut créer un type - et non une constante - correspondant au type composé que l'on veut lire ou retourner pour que ce soit possible).
11/07/2007, 11h41
mathieu.toury

Merci

Bonjour,

Cette astuce m aide beaucoup...

Merci

Kiki_surface
11/07/2007, 14h40
droggo

Jao,

Citation:

Envoyé par mathieu.toury

Cette astuce m aide beaucoup...

Je ne pense pas qu'on puisse appeler ça "une astuce". :)

Citation:

Envoyé par Loceka

Parce que les fonctions/méthodes en Pascal n'accèptent pas de types composés en arguments ni en type retour (Il faut créer un type - et non une constante - correspondant au type composé que l'on veut lire ou retourner pour que ce soit possible).

Pour le retour, c'est vrai, mais pas pour les paramètres.

On peut parfaitement écrire

Code:

procedure tarte(var t : array of integer);

Avec quand même des inconvénients :

- dans la procédure, les limites des indices du tableau sont inconnues, et le 1er élément sera à l'index 0

- pour la même raison, la procédure ne sait pas jusqu'où pouvoir aller dans le tableau, et il faudra donc lui passer un 2ème paramètre, indiquant le nombre d'élements dans le tableau (et pas la limite max des indices utilisés par ailleurs, qui est autre chose).

Bien évidemment, je déconseille fortement ce genre d'acrobatie !!