Discussion :

[Ardely]

Bonjours,
J'aurrais trois petits questions sur les tableaux Dynamiques.
examples

Code :

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

1
2
3
4
5
6
7
8
 
var text: array of string;
begin 
... 
SetLength(text, N+1); 
text[N] := 'Hallo'; 
...
end;

Q1.
Comment savoir le nombres de lignes dans un tableau dynamique!
Dois-je passer par une boucle, si oui alors comment savoir si je suis a la fin
de ma ligne (la variable N est inconnue).

Q2.
Pour initialiser tout a zero suffit-il de faire

Code :

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

1
2
3
 
N := 0;
Initialize(text, N);

Q3.
Pour désalloué le tableau completement de la mémoire puis je faire ceci...!

Code :

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

1
2
 
Finalize(text);

Grand Merci pour un tout petit example pour mieux comprendre...
Salutations
Ardely

[Yurck]

Q1.
Comment savoir le nombres de lignes dans un tableau dynamique!

les fonctions Low et High te donnereont les bornes de ton tableau

Q2.
Pour initialiser tout a zero suffit-il de faire

Code :

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

1
2
3
 
N := 0;
Initialize(text, N);

Pourquoi pas !
j'ai l'habitude de fillChar

Code :

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

1
2
 
FillChar(text, SizeOf(text), #0);

Q3.
Pour désalloué le tableau completement de la mémoire puis je faire ceci...!

Code :

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

1
2
 
Finalize(text);

Moi j'utilises

Code :

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

1
2
 
  SetLength(text,0);

a+

[thewho]

Bonjour,

Q2.
Pour initialiser tout a zero suffit-il de faire

Code :

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

1
2
3
 
N := 0;
Initialize(text, N);

Je n'utilise plus Delphi depuis longtemps, et j'ai oublé comment initialiser un tableau dynamique, mais il est clair que la réponse

Pourquoi pas !

ne convient pas.

Ton tableau text est un tableau de string, et 0 ne signifie absolument rien pour un string.

[Yurck]

Exact,
mais N ne désigne pas la valeur d'initialisation mais la taille à initialiser il devrait sans doute être remplacé par

Code :

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

1
2
 
Initialize(text, SizeOf(N));

enfin moi j'utilises Fillchar

a+

[thewho]

Bonjour,

Il s'agit d'un tableau de string, et un string ne s'initialise pas comme un integer ou autre valeur scalaire.

[sjrd]

Pour initialiser un tableau de string, c'est très simple : il suffit de... Ne rien faire !
En effet, Delphi connaît string comme étant un type qui exige une initialisation. Delphi la gère lui-même. D'ailleurs, les tableaux dynamiques exigent aussi une initialisation. Et en général, tout type de donnée qui exige une initialisation exige également une finalisation. Et Delphi fait tout ça tout seul. Il le fait tellement bien tout seul que vous ne devez pas repasser derrière/devant lui, sinon vous risquez des problèmes !

Un FillChar sur un array of string est à proscrire : il ne faut jamais manipuler la mémoire qui référence des string ! Les types interfaces sont également dans le cas.

les fonctions Low et High te donnereont les bornes de ton tableau

Et la fonction Length te donnera sa longueur (= High - Low + 1).

Pour désalloué le tableau completement de la mémoire puis je faire ceci...!

Comme je l'ai dit, il ne faut rien faire : Delphi gère ça lui-même. Tu auras perte d'efficacité à vouloir vider un tableau inutilement.

Par contre je ne connais pas Initialize et Finalize, et je ne les trouve pas dans l'aide de Delphi. Il doit s'agir (marquer l'hypothèse) de fonctions de très bas niveau que Delphi appelle dans le traitement de certains types de données. Mais il ne faut donc pas les utiliser explicitement.

FillChar(text, SizeOf(text), #0);

En admettant même que tu ne travailles pas sur des string... Pour un tableau dynamique, cet appelle plantera d'une manière que tu jugeras aléatoire - je le sais par expérience, pas plus tard qu'aujourd'hui - n'importe où dans ton programme. D'abord, tu ne dois pas utiliser SizeOf(text) mais Length(text)*sizeof(integer) (si ton tableau est un tableau d'entiers). Ensuite, comme premier paramètre, il ne faut pas mettre Text, mais bien Text[0]. Car il s'agit d'un paramètre var, et non d'une adresse, et donc que Delphi va automatiquement prendre l'adresse de la variable que tu passes.

L'appel que tu donnes est valable pour une variable de type record. Et encore, pour un record qui ne contient aucun champ d'un type exigeant une initialisation.

[Ardely]

Bonsoir,
Merci beaucoup à tous vous m'avez bien aider, j'ai fait des tests selon vos
conseils qui fonctionne très bien, merci et bon weekend .
Ardely