Discussion :

[Ardely]

Bonjour, à tous,
existe - t'il un mot-clef (function) en delphin qui permet de savoir si dans un string, il y a que des numéros !
pour faire après strtoint (), ou dois-je faire une fonction qui analyse chaque caractère.

[ALWEBER]

Soit tu fais une fonction, soit tu mets ton code dans un bloc try...

[Fxg]

Tu utilises strtoint et tu interceptes l'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  A : Integer;
 
begin
  try
    A := StrToInt('125A);    // A n'est pas un chiffre
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;
end;

[ero-sennin]

Salut,

Tu peux aussi faire ceci:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
MonResultatConverti:Extended;
begin
if TryStrToFloat(Edit1.Text,MonResultatConverti) then
ShowMessage('Conversion Réussie! Le texte était bien un nombre')
else
ShowMessage('Conversion Echouée: Des lettres sont présentes dans l''Edit1.');
end;

Ce code permet à la fois de tester si l'Edit1 est contient bien un nombre et si c'est le cas, il le stocke dans la variable MonResultatConverti.

Si c'est un échec, MonResultatConverti contiendra une chaine vide (MonResultatConverti='')

Voilà

PS: Il y a aussi le TryIntToStr() mais cela ne concerne que des entiers ...
Aussi, pour TryFloatToStr, le séparateur décimal est la virgule et non le point ...

Bon courage!
A+

[Pedro]

PS: Il y a aussi le TryIntToStr() mais cela ne concerne que des entiers ...
Aussi, pour TryFloatToStr, le séparateur décimal est le virgule et non le point ...

Salut
Je pense que cela dépend de DecimalSeparator (de tes paramètres régionaux)

[ero-sennin]

Oui, exact, autant pour moi

[Gilbert Geyer]

Bonjour,

T'as aussi la procedure Val(S; var V; var Code: Integer);

Code :

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

1
2
3
4
5
6
7
8
 
...
var   S : string; V : Extended; // ou bien V : integer;
       code : integer;
begin       s:=Edit1.text;
              Val(S,V,code);
              if code <> 0 Alors l''indice du caractère erroné est stocké dans Code ; sinon, Code est mis à zéro
end;

A+

[Ardely]

J'ai cherché sur ce sujet que vous me proposez et vous m'avez de nouveau beaucoup appris sur les exceptions, j'aurais été presque parti pour faire une fonction qui teste toute les caractères de la variable si elle serrait numérique
ou alphanumérique. Je pense si cette variable serait relativement longue, le test serrait aussi relativement longue,mais bon. Juste encore une petite question est-ce bien que le programme exécute une exception d'erreur cachée...

[Rayek]

Il n'y a aucun problème à cela

Pour ma part, quand je veux vérifier si une variable est numérique je me fais une fonction qui utilise des exceptions (solution montrée plus haut)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function IsNumeric (sVal : String) : Boolean;
var
  i : integer;
begin
  try
    i := StrToInt(sVal);
    Result := True;
  Except on E:Exception do
    Result := False;
  end;
end;

[ShaiLeTroll]

Même Nom, mais autre implémentation, déjà cité ci-dessus

Code :

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

1
2
3
4
5
6
7
8
9
10
  {$HINTS OFF}
  function IsNumeric(Str: String): Boolean;
  var
     Code: Integer;
     V: Integer;
  begin
       Val(Str, V, Code);
       Result := Code = 0;
  end;
  {$HINTS ON}

[DragonHeart]

je remplacerai meme StrToInt par StrToInt64 dans la fonction de Malatar pour éviter la petite blague d'une chaine numérique dépassant la taille d'un simple Int ... (ca m'est arrivé déjà ^^)

[anapurna]

salut

si tu utilise un tedit
dans le onkeypress de celui-ci enpeche la saisie de lettre
ca eliminera deja pas mal de probleme
ensuite tu peut effectivement verifier si c'est une valeur valide

@+ Phil

[J_apprenti]

Mr Ardely.
et bah moi j'utilise toujours ces deux fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
function IsInt(st:String): Boolean ;
var
 I:Integer;
begin
  Result:=False;
  for I:=1 To Length(st) do
         If Not (st[I] In ['1','2','3','4','5','6','7','8','9','0']) Then
            exit;
  Result:=True;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function IsInteger(S: String) : Boolean;
    {IsInteger('5') => True
    IsInteger('5.5') => False
    IsInteger('Ardely') => False}
var
 aNo,err:integer;
begin
  Val(S,aNo,err);
  If err=0 Then Result:=True Else
  Result:=False;
end;

[ShaiLeTroll]

Attention si c'est pour du contrôle à la frappe avec un EDit, si l'on supprime trop de chose, on perd des comportements ...

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
procedure StandardIntegerKeyPress(Sender: TObject; var Key: Char);
 
   function IsNumeric(Str: string; var V: Integer): Boolean; overload;
   var
      Code: Integer;
   begin
      Val(Str, V, Code);
      Result := Code = 0;
   end;
 
   function IsNumeric(Str: string): Boolean; overload;
   var
      V: Integer;
   begin
      Result := IsNumeric(Str, V);
   end;
 
begin
   if ((Key < '0') or (Key > '9')) then begin
      if ((Key <> #8) and (Key <> #13)) then begin
         if (Key <> #3) or (Key <> #22) or (Key <> #24) then // Copier-Coller-Couper
            Key := #0;
      end else begin
         if Sender is TEdit then begin
            if Trim(TEdit(Sender).Text + Key) = '' then begin
               TEdit(Sender).Text := '0';
            end;
         end;
      end;
   end else begin
      if Sender is TEdit then begin
         if not IsNumeric(TEdit(Sender).Text + Key) then begin
            Key := #0;
         end;
      end;
   end;
end;

[Gilbert Geyer]

Bonjour,

A ShaiLeTroll : dans ton code de 15h51 que re-voiçi, ça fait quoi le {$HINTS OFF} et le {$HINTS ON} ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
{$HINTS OFF}
  function IsNumeric(Str: String): Boolean;
  var
     Code: Integer;
     V: Integer;
  begin
       Val(Str, V, Code);
       Result := Code = 0;
  end;
  {$HINTS ON}

A+

[J_apprenti]

Gilbert Geyer a écrit :
A ShaiLeTroll : dans ton code de 15h51 que re-voiçi, ça fait quoi le {$HINTS OFF} et le {$HINTS ON} ?

{$HINTS OFF}
Là le compilateur ne générera pas d'informations de variable inutilisée lors
de la compilation du code placé entre ces deux directives.
{$HINTS ON}

[ShaiLeTroll]

J'ai du avoir un conseil du genre 'affectation inutile' ... ligne éliminé, bla bla bla ...

[Gilbert Geyer]

Bonjour,

Et merci pour vos réponses concernant HINTS OFF et ON
A+

[anapurna]

salut


elle est vachement compliqué ta fonction keypress

Code :

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

1
2
3
4
 if Not (Key in ['0'..'9',#8,#13]) Then 
     Key := #0;
  if Key <> #0 then
    inherited KeyPress(Key);

tu peut rajouter les code que tu veut mais c'est quand meme plus lisible


@+ Phil

[Rayek]

salut


elle est vachement compliqué ta fonction keypress

Code :

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

1
2
3
4
 if Not (Key in ['0'..'9',#8,#13]) Then 
     Key := #0;
  if Key <> #0 then
    inherited KeyPress(Key);

tu peut rajouter les code que tu veut mais c'est quand meme plus lisible


@+ Phil

La tienne aussi

Code :

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

1
2
 if Not (Key in ['0'..'9',#8,#13]) Then 
     Key := #0;

C'est largement suffisant ^^