tableau array

Version imprimable

29/08/2005, 23h45
laclac

tableau array

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 !
30/08/2005, 00h31
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:

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:

setlength( List1, high( List1) + 2)

atteindre le dernier élément :

Code:

List1[ high( List1)];

@++
Dany
30/08/2005, 00h32
smyley

jusqu'à ton méssage, j'était persuadé que cette utilisation était réservée aux constantes ... me trompe-je :?:
30/08/2005, 21h56
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

bonsoir,

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

Code:

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

30/08/2005, 23h55
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 :wink:

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:

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 ...

31/08/2005, 09h55
jmdeffet
Salut!

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

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

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

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+
01/09/2005, 11h04
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 !! :wink: