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