Discussion :

[Charly910]

Bonjour,

j'ai un tableau à double indice du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
//  Les filtres
    F1 : Array[0..1,0..25] of Integer = ((0,0,0,0,0,
                                    0,1,2,1,0,
                                    0,2,8,2,0,
                                    0,1,2,1,0,
                                    0,0,0,0,0,  20),
                                    (0,0,0,0,0,
                                    0,1,2,1,0,
                                    0,2,8,2,0,
                                    0,1,2,1,0,
                                    0,0,0,0,0,  20));

je veux le passer en paramètre à une fonction. J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Procedure ApplyFilter(Var BMP : TBitmap; Const Filter : Array Of Array of integer; Const Rect : TRect);

Bien sur, ça ne compile pas :

[Erreur] Filtering.pas(61): Identificateur attendu(e) mais 'ARRAY' trouvé(e)

sur la déclaration de la procédure.

Comment faire pour passer ce tableau ?

Est ce que je dois créer un Type ?

Merci

A+
Charly

[SergioMaster]

Bonjour,

Tu es comme moi, il faut que je m'arrête, car je commence à merder !

je ne sais pas mais si la déclaration Array[0..1,0..25] of Integer passe pourquoi ne pas mettre la même dans tes paramètres de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Procedure ApplyFilter(Var BMP : TBitmap; Const Filter : Array[0..1,0..25] of Integer; Const Rect : TRect);

d'un autre côté les pointeurs c'est passé de date ?

[Charly910]

Merci Serge, mais cela ne passe pas :

[Erreur] Filtering.pas(61): 'OF' attendu(e) mais '[' trouvé(e)

je vais essayer de créer un Type

A+
Charly

[Charly910]

J'ai déclaré le type FTab :

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
Type
    FTab = array[0..1,0..25] of integer ;
 
Const
 
    F1 : FTab                   = ((0,0,0,0,0,
                                    0,1,2,1,0,
                                    0,2,8,2,0,
                                    0,1,2,1,0,
                                    0,0,0,0,0,  20),
                                    (0,0,0,0,0,
                                    0,1,2,1,0,
                                    0,2,8,2,0,
                                    0,1,2,1,0,
                                    0,0,0,0,0,  20));
 
 
Procedure ApplyFilter(Var BMP : TBitmap; Const Filter : FTab ; Const Rect : TRect);

et ça fonctionne.

Avec des pointeurs, je ne sais pas le faire

Merci
A+