DELPHI : Incrémenter un tableau dynamique

Exemple de Code

dimanche 23 décembre 2007, par bluegyn_spip

Comment rajouter des lignes à un tableau ?

Un tableau dynamique est un pointeur sur une zone mémoire

La taille de cette zone mémoire peut être modulée à volonté

Il est ainsi possible de rajouter des éléments à un tableau dynamique dont la taille a déjà été définie :

L’INSTRUCTION EST

SetLength

SYNTAXE

SetLength (Nom_du_Tableau, Nouvelle_Taille ) ;

EXEMPLE

Soit un Tableau A déclaré avec 10 éléments

SetLength( A, 10 ) ;

- Numérotés de 0 à 9

Je peux lui rajouter 10 lignes de cette façon :

SetLength( A, 20) ;

- Les 10ères lignes ne sont pas modifiées

- Dix lignes vides sont rajoutées

CODE

var 

  A : array of string;

  i,max : integer ;

	

begin



// --- ALLOCATION ---

max := 10;

setlength ( A, max ); // 10 lignes



// --- ATTRIBUTION ---

for i:= 0 to 9 do A[i] := intToStr(i);



// --- MEMO ---

Memo1.clear;

for i := 0 to 9 do memo1.lines.add( A[i] ) ;      



for i := max to max+10 do 

	begin

		setlength ( A, i+1 );

		A[ i ]:= intToStr(i);     

  end;

                 

// --- MEMO ---

Memo1.clear;

for i := low(A) to high(A) do memo1.lines.add( A[i] ) ;

Faites très attention à la numérotation des éléments

La moindre erreur d’indice entraine une ERREUR D’ALLOCATION qui plante le programme.

C’est ce qui explique le SetLength ( A, I+1) ;

DELPHI : Incrémenter un tableau dynamique

Comment rajouter des lignes à un tableau ?

L’INSTRUCTION EST

CODE

Documents joints

Manip’s

Dans la même rubrique