J'ai 48 chiffres que je veux mettre dans un tableau. Actuellement, je pourrais le faire comme si Comment puis-je ajouter les chiffres, le code plus court au tableau?
Merci
GLEN
3 Réponses :
En supposant que toutes les valeurs de matrice suivent la même formule pour l'incrémentation d'une fente de tableau à l'autre, une boucle simple suffira, par exemple: résultat: < Pré> xxx
Si les valeurs requises ne correspondent pas à une formule, vous pouvez envisager
const
Tarcher_init : array[1..48] of integer
= (20,24,29,35,5,6,7,8,9,61,1,2,3,4,5,6,7,8,9,0,
1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,0,
1,2,3,4,5,6,7,84);
var
Tarcher : array[1..48] of integer;
i : integer;
begin
for i := low(Tarcher) to high(Tarcher) do
Tarcher[i] := Tarcher_init[i];
{OR}
move(Tarcher_init,Tarcher,sizeof(Tarcher));
end;
J'aime vraiment cela car les valeurs ne sont pas une formule.
@Glenm qui est le genre d'informations utiles que vous auriez dû pos remis à l'avant dans votre question.
@RemyleBeau en fait, je n'ai même pas pensé à être une séquence jusqu'à ce qu'une autre réponse ait dit "si c'était" Je devais revenir en arrière et regarder mais ce n'était pas.
Bien sûr, si vous définissez un type pour le tableau, la boucle n'est pas nécessaire. Déclarez simplement le VaR et la constante du même type, et vous pouvez attribuer directement la constante au VaR.
@RemyleBeau est-il possible d'avoir une page de juste const, puis de les inclure dans le programme principal? Tout ce que je cherche, montre simplement à utiliser des constantes. Toujours nouveau et pas sûr si cela est encore possible. Je voudrais poser une autre question sur tellement mais effrayé malade se faire banni pour des questions muettes.
@Glenm Pas tout à fait sûr de ce que vous demandez. Je pense que vous recherchez une unité qui contient simplement des valeurs const dans son interface , puis vous pouvez inclure cette unité dans la clause de d'autres unités et utilisez les valeurs const au besoin.
Vous pouvez définir une constante. Si vous pré-définissez le type de tableau, vous pouvez simplement affecter que:
var Tarcher: ArchArray; begin Tarcher := Arches;