Discussion :

[dacid]

Bonjour à tous,

J'ai un trou de mémoire, comment fait on, déjà, pour déclarer et initialiser un tableau 2D global statique dans une unité ?
Voici le code qui ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
unit unt_Main;
interface
type
  tabCode = array[0..1,0..1] of char;
 
implementation
  initialization
    tabCode39 := {'z','y'},{'z','y'}; // Plante
  end.
end.

Merci d'avance.

[tourlourou]

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
unit unt_Main; 
interface 
type 
  tcode = record 
   case integer of // syntaxe à vérifier
    1 : car, code: Char; 
    2 : str : String[2];
  end; 
[b]var[/b]
  tabCode = array[0..30] of tcode; 
 
implementation 
  initialization 
    tabCode[0].car := 'r'; // devrait marcher
    tabCode[0].code := 'R'; // devrait marcher
    tabCode[0].str :='rR'; // variante !

[Andry]

ou bien tout simplement

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
 
unit unt_Main; 
interface 
type 
  tabCode = array[0..1,0..1] of char; 
 
implementation 
  initialization 
    tabCode39[0,0] := 'z';
    tabCode39[0,1] := 'v';
    tabCode39[0,2] := 'x';
    tabCode39[0,3] := 'r';
    ....
    tabCode39[1,9] := 'a';
    ....
  end. 
end.

A+

[dacid]

Bonjour Andry et tourlourou,

Merci, c'est impec.

Pouvez vous également me dire comment renseigner la deuxième variable en binaire du style:

Code :

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

1
2
tabCode39[0,0] := 'z';
tabCode39[0,1] := 0000000110101011; // 2 octets

En fait j'ai besoin de 9 valeurs binaires, est ce la meilleur solution plutot que de faire:

Code :

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

1
2
3
4
5
tcode = record
  car: Char;
  val1,val2,val3,val4,val5,val6,val7,val8,val9: Boolean;
end;
  tabCode = array[0..30] of tcode;

Merci.

[Rayek]

Code :

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

1
2
3
4
5
tcode = record
  car: Char;
  val1,val2,val3,val4,val5,val6,val7,val8,val9: Boolean;
end;
  tabCode = array[0..30] of tcode;

Merci.

Ca serait pas plus simple comme çà :

Code :

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

1
2
3
4
5
tcode = record
  car: Char;
  Val : array [1..9] of Boolean;
end;
  tabCode = array[0..30] of tcode;

[dacid]

Salut Malatar,

Bin en fait, je ne sait pas trop, je cherche à ne pas perdre trop de ressources (mémoire, performances, ) car il y en aura un bon paquet à affecter.

Il est sur que ta déclaration est plus simple que la mienne mais l'affectation reste lourde:

Code :

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

1
2
tabCode[0].car := 'z';
tabCode[0].val := (true, false, ...);

Le systeme:

Code :

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

var tabCode: array[0..1,0..1] of char = (('z',0000000110111001),('z',0000000110111001), ...);

me plaisait bien, seulement, comment initialiser un char en binaire ?

[Rayek]

Il faut que tu utilises la fonction Ord(char)
Puis que tu transformes en Hexadecimal avec IntToHex
et pour finir tu utilises HexToBin

est ton ami apres

[dacid]

Ok, merci, je vais essayer ça cet après midi.

F1 n'est pas génial avec la version 2005... c'est plus de l'anti-aide qu'autre chose.

En fait, c'est juste utile pour aider un peu sur une fonction dont on a le nom, et encore, il n'y a pas d'exemples, c'est juste pour connaitre les paramètres attendus !

Dans un autre langage que Delphi en plus car le filtre est zéro.

On comprends la tronche mal lunée du smiley qui tient son panneau F1, hi.

[Rayek]

F1 n'est pas génial avec la version 2005... c'est plus de l'anti-aide qu'autre chose.

Je te comprend, je suis aussi en D2005, et l'aide est le pire que j'ai jamais vu ......
Mais qu'est ce qu'ils nous ont fait la borland l'aide style D7 etait tres bien ...

Pour Ord tu trouveras pas avec D2005 (même avec la recherche )

en clair faut passer un caractère en paramètre de la fonction et ca te retourne le code caractère en entier

Ord('a') = 97

[dacid]

Merci à vous tous (ça fait quand même du bien de pousser un coup de gueule quand ça énerve... même si vous n'y pouvez rien, hi).