Discussion :

[dacid]

Bonjour à tous,

Dans une unité, j'ai un record avec plusieurs variable dont une qui est de type Tfont:

Code :

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

1
2
3
4
5
  tElement = record
    id: Integer;
    valeur: String;
    police: TFont;
  end;

Sur une form, j'initialise ce record avec un TFontDialog:

Code :

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

1
2
3
elt: tElement;
...
elt.police := FontDialog1.Font;

Sur une autre form, j'utilise ce record (qui est dans un tableau maintenant) pour formater un texte:

Code :

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

1
2
3
4
tabElements: array of tElement;
...
texte := tabElements[id].valeur; // id=0, là, il trouve bien la valeur
Buffer.Font := tabElements[id].police; // Là, il pête, il perds toutes les valeurs

Et c'est ici que ça pête (l'indice du tableau existe bien vu qu'il trouve les autres élements du record), il me met:
Violation d'accès à l'adresse...

Qu'est ce qu'il se passe ?

[TicTacToe]

Je crois qu'il te faut allouer les cellules de ton tableau, car c'est un tableau ouvert. Contrairement a

Code :

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

array[0..5] of TElement

qui est pré-alloué.

Regarde du coté de SetLength.

[dacid]

Bonjour TicTacToe,

Non, ça ne vient pas de ça car je fais bien un SetLength(tabElements,lTabElements); de plus, il trouve bien les premiers eléments du record.

Tout marche à merveille si je fais:

Code :

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

Buffer.Font.size := 12; //tabElements[id].police.size;

contrairement à:

Code :

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

Buffer.Font.size := tabElements[id].police.size;

En fait, je viens de voir (ce code est dans un onPaint) qu'il passe bien la première fois mais c'est à la deuxième, qu'il pête.

Faut-il liberer quelque chose ?

[bjl]

bonjour,

si ta FontDialog1 a été détruite, c'est normal.


essaie avec

elt.police := Tfont.create;
elt.police.assign( FontDialog1.Font);

[dacid]

Bonjour bjl,

J'ai un peu honte sur ce coup la...

C'était bien ça, je voyait juste Tfont comme un record et non comme un objet.

Merci à vous.