Discussion :

[Linkin]

Bonjour,

Voici mon problème(je pense que c'est un problème de syntaxe mais je n'en suis pas sûr):

Code :

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

1
2
3
4
5
6
7
8
 
// J'ai déclaré pour simplifier un type général (utilisé à pas mal d'endroit).
TTypeTableau: array[0..2] of Double
//et une fonction:
MaFonction( pMonTableau : TTypeTableau)
//  Je cherche à appeler ma fonction de cette façon
// Cela marche si le paramètres est un array of Double mais pas en TTypeTableau
MaFonction([0.0,1.0,3.5]);

Auriez-vous une idée?

[Kaféine]

Code :

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

1
2
3
4
5
6
7
8
 
var
  t: TTypeTableau;
begin
  t[0] := 0.0;
  t[1] := 1.0;
  t[2] := 3.5;
  MaFonction(t);

[Linkin]

C'est une solution que je voulais éviter.

ça me fait "économiser" une variable et des initialisations dans un code déjà chargé.

Dans ce cas là, je mettrais le paramètre de MaFonction en array of double et ferais le contrôle de la taille dans le code de MaFonction.

[ShaiLeTroll]

Essaye const, je vais regarder mes sources car je l'ai fait avec des tableaux de chaines ...

[Kaféine]

Entre nous je vois pas trop l'intérêt de passer en paramètre un tableau si celui ci n'est pas dynamique.

Code :

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

1
2
 
function MaFonction(d, d1, d2: double): UnTrucEnRetour;

c'est interessant si le tableau est dynamique.

Mais bon j'imagine que tu as tes raisons que ma raison ignore...

[Linkin]

J'appelle ma fonction de cette façon:

Code :

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

1
2
 
MaFonction([maVariable1, maVariable2, maVariable3]);

Il n'y a pas de type de retour (J'aurais du l'appeler MaProcedure ).
Ce sont des résultats de champs d'une requête. J'avais mis des valeurs fixes pour l'exemple.

Le but est de provoquer des erreurs à la compilation si le type TTypeTableau est modifié. Plutôt qu'avec une erreur de vérification à l'exécution.


>Shai Je n'ai pas résussi avec le const. J'ai essayé:

Code :

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

1
2
 
MaFonction(const pMonTableau : TTypeTableau);

Mais j'ai la même erreur de compilation sur [maVariable1, maVariable2, maVariable3], il attend un type ordinal et non un double.

[Rayek]

et comme çà

Code :

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

1
2
 
MaFonction(VarArrayOf([0.0,1.0,3.5]));

Il faut rajouter Variants dans les uses normalement

[ShaiLeTroll]

Si tu as Delphi 6 ou plus, il y a l'unité Types, et le TDoubleDynArray ... mais c'est un soucis quand tu "type" le tableau ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function Abc(A: TDoubleDynArray): Boolean; // Passe pas 
begin
  Result := Length(A) > 0;
end;
 
function Abc2(A: array of double): Boolean; // Passe mais soulève d'autres problèmes ...
begin
  Result := Length(A) > 0;
end;
 
end;

Code :

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

1
2
abc([0.1, 0.2]);  // Passe pas 
abc2([0.1, 0.2]);  // OK

EDIT : en fait, c'est juste pour une fonction qui renvoie un tableau qu'il faut utiliser le type, pour le passage de paramètre, cela semble ne pas poser de soucis

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
 
var
  AT: TDoubleDynArray;
  ATL: array of Double;
begin
  if Abc2([0.1, 0.2]) then // OK
    Beep;
  if Abc2(AT) then // OK
    Beep;
  if Abc2(ATL) then // OK
    Beep;
  if abc([0.1, 0.2]) then // Ordinal Requi
    Beep;
  if Abc(AT) then // OK
    Beep;
  if Abc(ATL) then // Type différents
    Beep;
end;

[Linkin]

Le VarArrayOf me gêne tout autant, il me renvoie un tableau de variants. Du coup mon contrôle à la compilation ne fonctionne pas (ou alors je n'ai pas réussi).

Le type de variable TTypeTableau est utilisé dans différentes unités, et je voualis au maximum bloqué les modification à la compilation.

Je vais me rabattre sur le contrôle à l'exécution avec l'array of double.