Discussion :

[Anamelech]

Bonjour,

Je suis débutant en Delphi et je voudrai créer trois variable Z1, Z2 et Z3 à partir de zz1, zz2 et zz3. Plutôt que de faire Z1=qqchose+zz1 et recommencer pour Z2 et Z3 j'aimerai utiliser une boucle et générer comme ça les trois variables d'un coup. J'ai essayé avec ça:

Code :

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

1
2
3
4
5
for i:=1 to 3 do
begin
    j:=IntToStr(i);
    Z+j:=Zmax-zz+j;
end;

mais ça marche pas. Est-ce que quelqu'un sait comment faire ?

Merci d'avance.

[Linkin]

Pourquoi ne pas utiliser un tableau?

Code :

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

1
2
3
 
 Z : array[0..2] of integer;
 zz : array[0..2] of integer;

Et ensuite

Code :

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

1
2
3
4
5
 
for i:=1 to 3 do
begin
    Z[i]:=Z[High(Z)]-zz[i];
end;

[Anamelech]

Je ne peux pas utiliser de tableau parce que pour en faire un il fait déclarer le dit tableau dans la partie déclaration du programme et je n'y ai pas accès, je peux juste bidouiller le corps du programme...

Sinon, vu que tu as fait une boucle de 5 lignes, il vaut mieux faire 3 lignes

A terme je voudrai faire ça avec plus de 3 variables...

[pinson]

As-tu accès au .pas ? Tes variables sont déclarées où ??? Tu en as combien ???

Essaye de nous donner le maximum d'information, car je ne comprends pas comment tu peux faire en Delphi pour ne pas avoir accès aux déclarations.

[pinson]

Oui ça ne peut pas marcher...

Tu peux utiliser un tableau de 3 valeurs, une liste, un record, bref une structure.

Sinon, vu que tu as fait une boucle de 5 lignes, il vaut mieux faire 3 lignes :
z1 := zz1 + qqueschoses;
z2 := zz2 + qqueschoses;
z3 := zz3 + qqueschoses;

Si vraiment tu as un nombre dynamic de variable ou un grand nombre de variables utilise Array of MonType ou si le nombre est fixe array [0..MonNombre] of MonType.

Je trouve tout de même qu'avec un bon copier coller, cela va vite...

A toi de voir.

[e-ric]

Bonjour,

Je suis débutant en Delphi et je voudrai créer trois variable Z1, Z2 et Z3 à partir de zz1, zz2 et zz3. Plutôt que de faire Z1=qqchose+zz1 et recommencer pour Z2 et Z3 j'aimerai utiliser une boucle et générer comme ça les trois variables d'un coup. J'ai essayé avec ça:

Code :

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

1
2
3
4
5
for i:=1 to 3 do
begin
    j:=IntToStr(i);
    Z+j:=Zmax-zz+j;
end;

mais ça marche pas. Est-ce que quelqu'un sait comment faire ?

Merci d'avance.

Appréciation perso : Tu cherches bien des complications pour rien, affectes tes variables l'une après l'autre, c'est bien plus simple.

e-ric

[Anamelech]

J'ai pas accès à la partie déclaration parce que je travaille avec un logiciel de modélisation qui est apparemment écrit en Delphi (y'a rien d'indiqué) pour ce qui est de l'entrée des différentes données/caractéristiques de ce que l'on veut modéliser. Du coup je ne sais pas comment sont déclarées les variables mais je peux quand même en créer de nouvelles directement dans ce que je pense être le corps du programme !

Appréciation perso : Tu cherches bien des complications pour rien, affectes tes variables l'une après l'autre, c'est bien plus simple.

Avec plus d'une dizaine de variables je trouve ça un peu lourd et pas très joli...

[pinson]

Ok... C'est quoi ton modéliseur, que je ne travaille pas avec (j'aimerais savoir, ce ne serais pas together)

Bon, sinon, sérieusement, quelle doit être la portée de tes nouvelles variables ? Si ce n'est que dans ta fonction, alors tu peux faire :
var
montableau : array of MonType;
dans ta fonction ou procedure.

Sinon tu es bloquée. Tes variables Z1, ... sont déclarées où ???

[Anamelech]

Je les déclare pas ! je mets Z:=un truc et il fait comme si elles étaient déclarées ce qui n'est pas a priori possible si c'est en Delphi mais ça lui pose pas de problème ! Et comme ça ressemble furieusement à du Delphi je sais pas trop comment ça marche...Sinon c'est un programme qui a été développé par un laboratoire et que mon chef a récupéré et m'a refilé, donc je sais pas grand chose dessus (et j'ai l'impression que mon chef non plus...).

[pinson]

Et bien alors au lieu de faire Z := Montruc, fait un truc comme ça :

Code :

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

1
2
for i := 0 to Z.Count-1 do
  Z[i] := zz[i] + quelqueschoses;

Il va te dire que ton z et ton zz sont des array of LeurType.

Sinon ensuite je ne vois pas d'autres solutions que de faire :

Code :

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

1
2
3
4
5
z1 := zz1 + ...;
z2 := zz2 + ...;
.
.
.

Voilà.

[Eric Boisvert]

peut-être tu peux copier coller environs 20 lignes de code...
peut-être quelqu'un pourra te dire de quel langage il s'agit...

Il y a toute sorte d'indice dans 20 lignes de codes...
exemple d'un if en Delphi:

Code :

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

1
2
 if a=1 then b:=1;

exemple en C:

Code :

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

1
2
3
4
5
 if (a==1) 
 {
      b=1;
 }

exemple en Python:

Code :

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

1
2
3
 if a==1: 
      b=1;

Bref, j'ai pas l'intension de tous les faire...