Comment affecter directement une valeur dans un array of byte ?

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:

---

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:

---

1 2 3

idk[0] := $01; .. idk[1023] := ...;

---

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

Code:

---

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.

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:

---

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.

salut


tu veut creer une constante ?

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

Code:

---

1 2 3

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

---

@+ Phil

Pour le code :

Code:

---

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:

---

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.

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

Code:

---

1 2 3 4

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

---

Citation:

---

Envoyé par RamDevTeam

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.