Discussion :

[erioboty]

Bonjour,

comment afficher humain 2
et non pas cHumain2

merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
const
  cHumain1 = 'humain 1';
  cHumain2 = 'humain 2';
  cHumain3 = 'humain 3';
var
 i : integer;
begin
   i := 2;
   ShowMessage( 'cHumain' + i);
 
 
end;

[Fxg]

Code :

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

showmessage(cHumain2);

va afficher la valeur de la constate.

Attention car showmessage affiche des variables de type string; le rajout de + i va provoquer une erreur car la variable i est de type integer.

Code :

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

procedure ShowMessage(const Msg: string);

[e-ric]

Salut

Les débuts sont difficiles...

NB: Un programme se termine par un point 'End.' et non un point-virgule 'End;'.

Il n'est pas possible d'adresser une constante par un calcul comme montré dans ton code, la façon la plus proche de le faire consiste à déclarer un tableau de constantes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const
  cHumain: array[1..3] of string = (
    'humain 1',
    'humain 2',
    'humain 3'
  );
 
var
  i : integer;
begin
  i := 2;
  ShowMessage( cHumain[i]);
end.

Une autre solution consiste à ne pas utiliser une chaîne unique auquel on adjoint un valeur entière convertie en chaîne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
uses 
  SysUtils;
 
var
  i : integer;
begin
  i := 2;
  WriteLn( 'Humain '+IntToStr(i));
end.

Ne sachant pas exactement le problème posé, les deux solutions se valent.


Etudie les documentations, c'est nécessaire, même pour les plus chevronnés d'entre nous.

Cdlt

[erioboty]

Bonjour,

merci pour vous réponses.

e-ric
le tableau de constances me convient.

a+