Discussion :

[jordanMSF69]

bonsoir a tous j'espère que vous allez bien je suis un nouvelle utilisateur je suis étudiant j'ai des exams la semaine prochaine et pour réviser Delphi je regarde des vidéo d'un boot camp sur YouTube et j'ai eu un problème avec une propriété sur les modules Tedit et Tmemo.

merci pour votre aide d'avance.

[SergioMaster]

Bonjour et bienvenue.

Ma boule de cristal n'est pas encore chaude mais



je n'y avais jamais porté attention mais .Text est un TCaption et non un String, ce qui explique l'erreur
rien n'empêche cependant de transtyper valeursaisie:=String(Affichage.Text).toInteger;
D'un autre côté je suggère plutôt d'utiliser des fonctions (à l'ancienne)
- StrToInt
- StrToIntDef
ou alors les bons helpers
- le helper Parse ;
- le helper TryParse;

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
60
61
62
63
 
// Test des diverse solutions
procedure TForm20.Edit1Change(Sender: TObject);
var
  vs: integer;
begin
  Memo1.lines.Clear;
  // transtypage
  try
    vs := String(Edit1.Text).ToInteger;
    Memo1.lines.Add('Transtypage & ToInteger  ' + vs.ToString);
  except
    Memo1.lines.Add('Erreur ToInteger ');
  end;
 
  // à l'ancienne fonction strtoint
  try
    vs := StrToInt(Edit1.Text);
    Memo1.lines.Add('StrToInt ' + vs.ToString);
  except
    Memo1.lines.Add('Erreur StrToInt ');
  end;
  // à l'ancienne fonction strtointDef
  vs := StrToIntDef(Edit1.Text, 0);
  Memo1.lines.Add('StrToIntDef ' + vs.ToString);
 
  // helper Parse
  try
    vs.Parse(Edit1.Text);
    Memo1.lines.Add('Parse ' + vs.ToString);
  except
    Memo1.lines.Add('Parse erreur');
  end;
  // helper TryParse
  if vs.TryParse(Edit1.Text, vs) then
    Memo1.lines.Add('TryParse ' + vs.ToString)
  else
    Memo1.lines.Add('TryParse, pas un entier');
 
// passage par chaine intermédiaire pour pouvoir utiliser le helper to string
  try
    var
      s: String := Edit1.Text;
    vs := s.ToInteger;
    Memo1.lines.Add('variable intermédiaire' + vs.ToString);
  except
    Memo1.lines.Add('variable intermédiaire, pas un entier');
  end;
 
// Utilisation de SelText
  Edit1.SelectAll;
  try
    try
      vs := Edit1.SelText.ToInteger;
      Memo1.lines.Add('SelText ' + vs.ToString);
    except
      Memo1.lines.Add('SelText, pas un entier');
    end;
  finally
    Edit1.SelLength := 0;  // annule la sélection
    Edit1.SelStart := Length(Edit1.Text); // positionne le curseur
  end;
end;

à noter que le choix du composant de saisie pourrait changer la donne
par exemple : TNumberBox, TmaskEdit, TSpinEdit

[Paul TOTH]

pour compléter la réponse, il faut savoir qu'un certain nombre de fonctions comme String.ToString sont des HELPERS. String est un type système qui ne possède aucune méthode par défaut, mais en déclarant un StringHelper, la RTL lui ajoute des méthodes...et en effet, le Helper étant attaché au type String alors que TEdit.Text est un type TCaption, ce helper n'est pas appliqué :

Code :

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

1
2
3
4
5
 
class function TStringHelper.ToInteger(const S: string): Integer;
begin
  Result := Integer.Parse(S);
end;

mais on pourra écrire

Code :

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

1
2
 
ShowMessage(Integer.Parse(Edit1.Text).ToString);

car en paramètre Delphi fera la conversion TCaption vers String

[Papy214]

[QUOTE=... méthode par défaut, mais en déclarant un StringHelper, la RTL lui ajoute des méthodes...[/QUOTE]

Tu peux m'expliquer comment tu fais ça stp ?
Si je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
 type
 
    TStringHlp = record helper for string
     function Test: boolean;
    end;
 
procedure TDataModule2.CalculeDoublons(Lst, Resultat: TStringList);
var
  S: string;
begin
 
  S.Test;  <<  ICI, la seule complétion proposée est ce que j'ai ajouté. Les autres ont disparu

[Paul TOTH]

et oui seul le Helper le plus proche est conservé...les autres sont perdus :/

à part pour un "class helper" pour lequel il est possible de déclarer un helper ancêtre, mais pas pour un "record helper"

[Papy214]

C'est bien ce qu'il me semblait parce que j'avais fait un post sur le sujet il y de nombreux mois.
Mais les choses auraient pu évoluer entre 2 versions de Delphi, alors je préférais demander