Discussion :

[Jlmat]

Bonjour à tous,

J'ai un ensemble de constantes définies ainsi:

Code :

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

Const kTypeGraph  : array[0..3] of String[8] = ('Figure 1','Figure 2','Figure 3','Figure 4') ;

L'écriture de la ligne suivante ne pose pas de problème en Delphi

Code :

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

Showmessage('Sélection demandée : '+inttostr(kTypeGraph[RadioGroup1.ItemIndex]));

Par contre, elle génère à la compilation Erreur Got "ShortSring", expected QWord sous Lazarus

si j'écris la procédure ci-dessous, la déroutement sur la valeur d'index ne pose pas de problème et les solutions 1 et 2 fonctionnent : => no comprendo this erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
  Const kTypeGraph  : array[0..3] of String[8] = ('Figure 1','Figure 2','Figure 3','Figure 4') ;
  Var  CH : String;
begin
  Case RadioGroup1.ItemIndex of
  0: Ch := 'Sélection demandée Figure 1';
  1: Ch := 'Sélection demandée Figure 2';
  2: Ch := 'Sélection demandée Figure 3';
  3: Ch := 'Sélection demandée Figure 4';
  end;
  showmessage('Solution 1 = '+CH);
 
  Ch := kTypeGraph[RadioGroup1.ItemIndex];
   showmessage('Solution 2 = '+CH);
 
end;

J'ai bien regardé des post qui ont été faut sur le sujet de cette erreur, mais je n'ai pas vu d'explication claire. Est-ce un Bug?

A+

[acaumes]

Bonjour,

Non, ce n'est pas un bug tu cherches à trouver la chaîne correspondant à un entier avec inttostr.

Code :

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

Showmessage('Sélection demandée : '+inttostr(kTypeGraph[RadioGroup1.ItemIndex]));

Il te suffit de :

Code :

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

Showmessage('Sélection demandée : '+kTypeGraph[RadioGroup1.ItemIndex]);

En effet inttostr attend quelque chose qui ressemble à un entier (Qword) et tu lui donnes une chaîne (shortstring).

Cordialement

[Jlmat]

autant pour moi!
Pas bien réveillé, lol!
Merci acaumes