Discussion :

[laclac]

Bonjour,

Je me rappel plus bien du fonctionnement des tableaux. Voici mon code d'initialisation de ma variable List1.
var List1: array [1..2] of string = ('valeur1','valeur2');

Mais j'aimerais dans mon programme rajouter une valeur3 et 4. Bien sur pas à l'initialisation mais plus loin dans mon code.

PS: J'aimerais également connaitre la longeur du tableau. Merci d'avance !

[skywaukers]

bonjour,

si tu déclare un tableau statique, tu ne peux pas ensuite modifier ses dimensions.
Pour faire ce que tu veux, il faut déclarer un tableau dynamique :

Code :

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

var List1: array of string;

ensuite, tu retaille le tableau avec la methode SetLength et tu connait sa taille avec la fonction High. Dolnc pour augmenter le tableau d'un élément :

Code :

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

setlength( List1, high( List1) + 2)

atteindre le dernier élément :

Code :

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

List1[ high( List1)];

@++
Dany

[smyley]

jusqu'à ton méssage, j'était persuadé que cette utilisation était réservée aux constantes ... me trompe-je :

[laclac]

Non celà ne fonctinne pas.
Il me dit type incompatible.
Je pense que c'est du que ma déclaration est pour les constantes.
Mais je ne sais pas comment les déclarers car sinon je la laisse vide high(List1) me retour rien et donc ca fait planté ta commande.
setlength( List1, high( List1) + 2)

Comment dois je déclarer mes valeurs ?
merci

[skywaukers]

bonsoir,

ce code fonctionne chez moi (il te faut un bouton sur une form) :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  List1 : array of string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  setlength( List1, high( List1) + 2);
  List1[ high( List1)] := 'Valeur1';
end;
 
end.

@++
Dany

[laclac]

Bonjour skywaukers,

Merci bien pour ce bout de code il me sert vraiment beaucoup.
En effet, j'ai pu le tester et il fonctionne bien. Malheureusement, il ne fonctionne pas si je met les lignes intéréssantes dans on programme...
Au moins je sais que celà viens pas de la gestion du tableau.

Celà met l'erreur : violation d'acces... Je pense que je déclare mal ma viarable tableau et vu que mon code est très complexe difficle de s'en sortir.
Donc merci bien pour ton code, celà me permet de pas chercher une erreur là ou il y en a pas

[smyley]

tu obtiens des violations d'accès peut être car tu n'utilies pas bien SetLength ( à toujours appeller avant d'utiliser un tableau, question de principe pour moi )

Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
 i : array of integer;
begin
 i[0] := 12; //incorrecte ici
 
 setLength(i,1);
 
 i[0] := 12; //correct
 
 i[1] := 12; //incorrecte, le tableau à une taille 1 donc le seul élément est 0
...

[jmdeffet]

Salut!

Une erreur classique est d'utiliser des boucles en utilisant length au lieu de high:

Code :

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

1
2
3
 
for i:= 0 to length(montableau) do
  montableau[i]:=i; // plante au dernier passage car hors indice

au lieu de

Code :

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

1
2
3
 
for i:=0 to high(montableau) do
   montableau[i]:=i; // ok

ou

Code :

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

1
2
3
 
for i:= 0 to length(montableau)-1 do
  montableau[i]:=i; // ok aussi

Dans ton code, fais un remplacement de length(montableau)-1 par high(montableau) et un remplacement de length(montableau) par high(montableau) dans cet ordre pour que les -1 ne deviennent pas high(montableau)-1






A+

[laclac]

Merci beaucoup !
Mon problème est résolu...
Il y avait quelques soucis et le +2 de "high( List1) + 2)" m'a pas mal trompé car je le comprend pas trop.
Donc merci beaucoup, je n'aurais sans doute pas trouvé sans votre aide !!