Discussion :

[AT]

Bonjour,

J'ai (exemple)

Code :

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

const t:array[0..24]of string=('FF','VVV','RRR',................);

que j'affiche dans une ListBox

Pour chaque éléments de t une valeur constante est affecté

FF=12 VVV=12,5 RRR=1,56 ........................

Je cherche le moyen le plus simple ou judicieux pour que cette valeur s'affiche qud je clic sur l'élément dans la ListBox
Dois je créer

Code :

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

const tval:array[0..24]of string=('12','0.26','1.56',.....)

merci

[Cl@udius]

Salut

Ton problème réside dans la façon de récupérer la valeur de l'item sélectionné ?
Ou bien tu ne sais pas comment l'afficher ?

@+

[Gilbert Geyer]

Bonjour,

ShowMessage(tval[ListBox1.ItemIndex]);
ou bien
Edit1.text:=tval[ListBox1.ItemIndex];

A+

[anapurna]

salut

pour moi le plus simple :

Code :

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

1
2
3
4
5
6
7
8
 
const t:array[0..24]of recod 
                                  ref    : String[10];
                                  value : currency;
                               end = ((ref:'FF';value:12)
                                        ,(ref:'VVV';value:0.26)
                                        ,(ref:'RRR';value:1.56)
                                        ,................);

l'item selectionner correspondant a la position de celui-ci dans le tableau
retrouver la valeur corespondante n'est qu'une formalité

@+ Phil

[AT]

ok

Comment recuperer

Code :

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

value

de anapurna dans un showmessage ou un edit

[Cl@udius]

Comme ceci:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with t[ListBox1.ItemIndex] do
    ShowMessage(ref + ' = ' + FloatToStr(Value));
end;

@+

[AT]

cool

[anapurna]

salut

je dirait meme plus que claudius

comme ceci

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if sender is TListBox Then
  with t[(sender as TListBox).ItemIndex] do
    ShowMessage(ref + ' = ' + FloatToStr(Value));
end;

j'aime pas nommé explicitement les objet quand ce n'est pas necessaire
ca evite bien des modif le jour ou tu renomme l'objet avec un nom parlant

@+ Phil

PS : au fait bonne année a toutes et a tous

[AT]

si je veux maintenant en ouvant une inputbox

Code :

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

1
2
 
passL:=InputBox('Choisir la value.','Attribue une valeur correspondantes.','');

je tape une valeur par ex 0.26

1. l'item correspondant dans la listbox doit etre selectionner et mis en valeur

2. Et peut on limiter la saisie dans une inputbox à des chiffres et 1 virgule ?

merci

[AT]

Comment puis recuperer dans la listbox les valeurs de ref seulement?

[AT]

Plutot
J'avais :

Code :

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

1
2
3
4
5
 
for i:=Low(t) to High(t) do
 begin
 Listbox2.Items.Add(t[i]);
 end;

Maintenant avec t:array[0..24]of record
ref : String[10];
value : currency;
comment ajouter à la listbox avec les modifs ref

merci

[Cl@udius]

Code :

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

1
2
3
4
5
 
for i := Low(t) to High(t) do
begin
  Listbox2.Items.Add(t[i].ref);
end;

@+

[AT]

oui excellent

[AT]

Au lieu d'utiliser ShowMessage je prefere utiliser

Code :

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

1
2
 
MaMessageBox := MessageBoxA(0,Pchar('ref = '+ value),Pchar('Valeur corrspondante'),0 + MB_ICONINFORMATION + 0);

En tous cas

[anapurna]

salut

bon pour le inputbox il faut te le creer soi meme

j'ai repris en grande parti le code du inputbox de delphi
que j'ai un peu modifier je te montre uniquement les modif a faire

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit UMyDialogs;
 
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,consts;
 
function InputQuery(const ACaption, APrompt: string;var Value: currency): Boolean;
function InputBox(const ACaption, APrompt : String; ADefault: currency): currency;
 
implementation
 
//cette fonction doit etre palce ici a chercher dans l'unite dialogs
function GetAveCharSize(Canvas: TCanvas): TPoint;
...
// la c'est la gestion des touches 
procedure OnMyKeyPress(Self : TForm;Sender: TObject; var Key: Char);
  begin
    if not (Key in ['+', '-', DecimalSeparator, '0'..'9', #0..#31] )
      or ((key = decimalseparator) and (pos(decimalseparator,(sender as TEdit).text)>0))then
   begin
     Key := #0;
     MessageBeep(MB_ICONEXCLAMATION);
   end
end;
 
 
function InputQuery(const ACaption, APrompt: string;var Value : Currency): Boolean;
var
  ...
  EvtKeyPress: TKeyPressEvent;
begin
     ...
      Edit := TEdit.Create(Form);
      with Edit do
      begin
        // bon la ca se complique 
        // le but c'est de definir la procedure comme une methode de class
        TMethod(EvtKeyPress).Code := @OnMyKeyPress;
        TMethod(EvtKeyPress).Data := Form;
        ...
        Text := floattostr(Value);
        // la on l'afffecte a l'evenement onkeypress
        OnKeyPress := EvtKeyPress;
      end;
... 
     if ShowModal = mrOk then
      begin
        Value := strtofloat(Edit.Text);
        Result := True;
      end;
 ...
end;
 
function InputBox(const ACaption, APrompt : string; ADefault: currency): currency;
begin
  Result := ADefault;
  InputQuery(ACaption, APrompt, Result);
end;
 
end.

@+ Phil

[AT]

super