Je ne comprends pas ce code

Version imprimable

Code:

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

30/03/2010, 10h00
qi130

Citation:

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.
30/03/2010, 12h10
bigmonstre

merci, mais j'ai un petit commentaire
donc la fontion val, revient à la meme expression que, à titre d'exemple:
Code:

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?
30/03/2010, 13h51
Linkin

StrToInt fait appel à Val.

Mais pour simplifier le code, le plus simple serait de faire appel à TryStrToInt
30/03/2010, 13h55
bigmonstre

ok merci

code qu'on pourrait remplacer par :

Code:

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;