Discussion :

[bigmonstre]

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
procedure TfmPrinc.btLireClick(Sender: TObject);
var
  v, e, valeur: integer;
begin
  val(edCle.Text, v, e);     // je comprends pas cette ligne à quoi ça va  servir?
  if e = 0 then
  begin
    valeur := fTele1.Chaines[v];
    if valeur <> -1 then
      edValeur.Text := IntToStr(valeur)
    else
      ShowMessage('La clé n°' + IntToStr(v) + ' n''existe pas.');
  end
  else
    ShowMessage('La clé doit être une valeur entière.');
end;

en fait mon probleme reside dans la ligne ou ce trouve le commentaire!!! merci

[qi130]

procedure Val(S; var V; var Code: Integer);

Description

La procédure Val convertit la valeur chaîne S en son équivalent numérique, comme si elle était lue depuis un fichier texte, via Read.

S est une expression de type chaîne*; il doit s'agir d'une séquence de caractères formant un nombre réel signé.

V est une variable de type entier ou réel. Si V est une variable entière, S doit former un nombre entier.

Code est une variable de type Integer.

Si la chaîne n'est pas valide, l'indice du caractère erroné est stocké dans Code*; sinon, Code est mis à zéro. Pour une chaîne à zéro terminal (AZT), la position renvoyée par Code est supérieure d'une unité à l'indice de base zéro du caractère erroné.

Val effectue une vérification d'étendue selon l'état de $R et du type du paramètre V.

[bigmonstre]

donc la fontion val, revient à la meme expression que, à titre d'exemple:

Code :

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

1
2
x:=edit.texte;
s:=strtoint(x);

C'est convertir la valeur lu à laide de edit et la convertir en valeur numerique de type integer?

[Linkin]

StrToInt fait appel à Val.

Mais pour simplifier le code, le plus simple serait de faire appel à TryStrToInt

[bigmonstre]

ok merci

[Dr.Who]

code qu'on pourrait remplacer par :

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
procedure TfmPrinc.btLireClick(Sender: TObject);
var
  v, valeur: integer;
begin
  if TryStrToInt(edCle.Text, V) then
  begin
    valeur := fTele1.Chaines[V];
    if valeur <> -1 then
      edValeur.Text := IntToStr(valeur)
    else
      ShowMessage('La clé n°' + edCle.Text + ' n''existe pas.');
  end
  else
    ShowMessage('La clé doit être une valeur entière.');
end;