recuperer des valeurs dans un teditRésolu

Question

Bonjour,
Je d&#233;bute sous delphi, et je doit faire une interface graphique dans laquelle l'utilisateur entrera des valeures que je devrai r&#233;cuperer dans des variables des qu'il apuira sur un bouton de validation.
pour cela, j'ai cr&#233;&#233; un tform dans lequel il y a des tedit eu un bitbutton de validation.
quelqu'un pourrait-il me dire comment je peut r&#233;cup&#233;rer les valeurs que l'utilisateur aura pr&#233;alablement entr&#233; dans les tedit pour les mettre dans des variables ? (ou au moin m'indiquer un tutoriel en parlant )
Merci.

cs_sim51 · Accepted Answer

salut,
Pour récupérer la valeur d'un tedit dans une variable var il te suffit de faire :
var := edit.text;
Cependant le type de ta variable var sera de type string. Si tu veux que cela soit des entiers ou des valeurs numériques il te faudra faire un transtypage.
Bonne continuation

sfkuhvdlkufgs · Answer

une petite precision : je ne suis pas sur non plus qu'il faille utiliser des tedit

Francky23012301 · Answer

Salut,

J'ai 5 min alors je te file une autre technique quand tu as plusieurs edit. Edit.text est "un string". Bien je te propose de cr&#233;er une variable correspondant non pas &#224; un string mais &#224; une "liste de strings ", ok??

Procedure RecupererEditDansVariable (Sender : TObjet);
Var
List  : TSTRINGLIST; // 
begin
List:=TStringList.Create; // On cr&#233;e la stringlist
List.Add(Edit1.text); // On ajoute le contenu de l'edit1
List.Add(Edit2.text);
List.Add(Edit3.text);
{ Tu mets i&#231;i ce que tu veux faire de ta stringlist}
List.free; // On a plus besoin de  List on la lib&#232;re
end;

J'ai pas delphi sous les yeux mais ca devrait etre bon. Il est pr&#233;f&#233;rable d'utiliser try except et finally. Je les ai pas mis pour pas te compliquer.

A+ et bon coding ...

sfkuhvdlkufgs · Answer

merci tous les deux, &#233;ant donn&#233; que les valeurs entr&#233;es vont me servir pour une fonction mathematique, je vais pltit prendre la premiere solution.
En tout cas c'est sympade m'avoir r&#233;pondu si vite :-)

cs_sim51 · Answer

Re,
Puisque ce sont bien des valeur numérique n'oublie pas de faire le transtypage. D'ou fait plutot ceci :
var := strtofloat(edit.text);
Comme cela var sera une variable de type réelle (ou fait strtoint pour la variable soit de type entier).
Bonne continuation.

Cirec · Answer

Salut, et tu peux aussi si tu désires mettre en forme (afficher) une opération tu peux utiliser la fonction Format : Label1.Caption := Format('%s * %s := %d', [Edit1.Text, Edit2.Text, StrToIntDef(Edit1.Text, 0) * StrToIntDef(Edit2.Text, 0)]); Donc si Edit1.Text := 50 Et si Edit2.Text := 50 Label1.Caption Affichera 50 * 50 := 2500

n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

@+ Cirec

Cirec · Answer

Ps : préferez les fonctions StrToType en StrToTypeDef : Exemple pour StrToFloat : function StrToFloatDef(const S: string; const Default: Extended): Extended; overload; Donc : var := strtofloat(edit.text); devient Var := StrToFloatDef(Edit.Text, 0.0); // voilà donc si Edit.Text n'est ni un entier ni un réel la fonction renvoie 0.0 et ne génère pas d'erreur

n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

@+ Cirec

florenth · Answer

En m&#234;me temps Cirec, si tu veux diff&#233;rencier la valeur 0 d'une saisie incorrecte, tu es mal barr&#233; !
Moi je pr&#233;f&#232;re utiliser StrToInt() et mettre un masque de saisie &#224; l'Edit, c'est &#224; dire mettre

if not (Key in ['0'..'9', Chr(VK_RETURN), Chr(VK_DELETE)]) then
  Key := #0;

dans l'&#233;venement OnKeyPress des Edits concern&#233;s. Ou alors utiliser un TMaskEdit.

@ +
Florent

Si tu ne te plantes pas ......
tu ne pousseras jamais

Francky23012301 · Answer

Oup la j'ai fais une boulette : deux fois rien mais bon

Procedure RecupererEditDansVariable (Sender : TObjet); à remplacer par
Procedure TForm1.RecupererEditDansVariable (Sender : TObjet); (et oui c'est un ptit bouton).

Désolé A+

Cirec · Answer

Oui Florenth, mais il y a des cas ou une valeur par défaut est utile. Et le problème de ta méthode est qu'en cas d'un coller (WM_PASTE) tu peux quand même rentrer autre chose que les caractères prévues à la base et donc la soit du refait un contrôle avant (mais niveau code c'est pas terrible) où alors il faudra compter avec une EConvertError. Alors qu'avec l'autre il renvoie la valeur par défaut. Comme dans la plus part des cas on a des limites dans les valeurs il suffit de déclarer une Constante qui est en dehors de ces limites Ex : // pour un interval entre 0 et 1024 Const Out_Of_Limit = 9999; procedure TForm1.Button1Click(Sender: TObject); Var Valeur : Integer; begin //On transtype avec une valeur par défaut si besoin on affecte Out_Of_Limit Valeur : = StrToIntDef(Edit1.Text, Out_Of_Limit); // On vérifie les limites si en dehors on affecte Out_Of_Limit If (Valeur > 1024) or (Valeur < 0) Then Valeur := Out_Of_Limit; //Où avec InRange de l'unité Math (Mais il faut ajouter Uses Math;) If Not InRange(Valeur, 0, 1024) Then Valeur : = Out_Of_Limit; ... end; Voilà et il n'y a pas d'erreur ni avec un coller ni autre ce qui n'empêche pas de l'utiliser simultanément avec un contrôle de la frappe ce qui est plus élégant

n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

@+ Cirec

florenth · Answer

Eh eh bien vu Cirec. Je n'avais pasdu tout pens&#233; au cas du copier-coller. Mais bon, avec un MaskEdit, pas de probl&#232;me normalement (je dis bien normalement car j'ai pas encore test&#233;)

Si tu ne te plantes pas ......
tu ne pousseras jamais

Recuperer des valeurs dans un tedit

11 réponses

Votre réponse

Discussions similaires