Discussion :

[RamDevTeam]

J'ai le pb suivant.
j'ai un une variable de type array of bytes;

je veux lui affecter une valeur par défaut directement dans le code.
il y a t'il un autre moyen que d'affecter les cases du tableau une par une.

Code :

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

1
2
3
4
5
6
7
8
var 
   idk: array of byte;
 
begin
   ...
  idk :=  [$01, $15, ...] ou $ChaineHexaComplete...;  // comment l'écrire ?
   ...
end;

il ya t'il un autre moyen que :

Code :

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

1
2
3
idk[0] := $01;
..
idk[1023] := ...;

je ne veux surtout pas utiliser une fonction qui recevrait une chaine
exemple :

Code :

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

1
2
3
begin
 AffecterByte(idk, '0115etc...');
end;

ce bout de code sert dans un module de protection est ce type de chaine se voit comme le nez au milieu de la figure quand on ouvre l'exe avec un éditeur hexa.

[LadyWasky]

Voici ce que tu peux faire :

1)
Dans un premier temps, tu fait un tout petit programme
qui te génère ta chaîne [$01, $15, ...] à partir de ta chaîne '0115etc...', ou mieux, si tu as beaucoup d'éléments, tu génères ce texte dans une TStringList :

Code :

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

1
2
3
idk[0] := $01;
..
idk[1023] := ...;

, tu sauvegarde tout ça, dans un fichier texte

2)
Tu ouvres ton fichier texte dans le Bloc-note, ou WordPad si il est vraiment long.

3)
Tu fais copier-coller de ce code (automatiquement généré par tes soins) dans ton application.

[anapurna]

salut


tu veut creer une constante ?

si oui il faut que tu connaisse le nombre d'element a l'avance

Code :

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

1
2
3
 
const
 Tables : array[0..NBELEM-1] of byte =  ($01,$10,...);

@+ Phil

[RamDevTeam]

Pour le code :

Code :

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

1
2
const
Tables : array[0..NBELEM-1] of byte = ($01,$10,...);

c'est effectivement impeccable. je n'avais pas pensé à utilisé une constante.

Je vais d'ailleurs utiliser l'astuce de waskol pour automatiser la création de la chaine ($...........). puisque ma constante à une taille de 1024 octets.
d'ailleurs est-ce qu'il y a une limite de taille pour ce type de constante (et pour l'instruction d'affectation) ?

petite question, pourquoi ce type d'affectation fonctionne avec une constante mais pas avec une variable ?

Ce code ne fonctionne pas :-(

Code :

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

1
2
3
4
5
6
var
    Tables : array[0..2] of Byte;
begin
    tables := ($01,$10,$10);  // ne fonctionne pas
    tables := [$01,$10,$10]; // ne fonctionne pas
end;

Merci.

[smyley]

c'est là toute la finesse du langage
mais bon, tu peut toujours faire des :

Code :

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

1
2
3
4
 
tables[0] := $01;
tables[1] := $10;
...

[Laurent Dardenne]

Ce code ne fonctionne pas

Dans ce cas tu répétes l'appproche, un tableaux de constantes puis un move. Sous Win32 pas de pb.
Pour la taille max c'est 2 Go je crois.