message d'erreur avec un calcul de valeur TEdit

Question

salut a tout le monde 

Voila, j'ai 3 TEdit
-Edit1
-Edit2
-Edit3

Pour les Edit1 Edit2 et Edit3 la valeur Text est vide  et recevras des nombres decimal (exemple 0,02) 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
     Edit5,Edit1, Edit2 : extended;

begin
try
  Edit3.Text := floattostr(strtofloat (Edit1.Text) + strtofloat (Edit2.Text));
except
ShowMessage('Veuillez entrer un nombre !');
end;


Lorsque je lancer l'execution j'ai un message d'erreur du type 
 [Error]Unit.pas(77): Record,Object or class type required 

Il y a t il quelqu'un qui pourrai m'explique l'erreur que j'ai commise dans le script ?? 

merci par avance pour votre aide

g0belin · Answer

oui moi en fait ce que tu voulais faire c'etait avoir trois edit pour rentrer des valeurs dans se cas la il faut faire :

var
    Edit5,Edit1, Edit2 : TEdit;
begin
        try
            Edit3.Text := floattostr(strtofloat (Edit1.Text) + 
            -> strtofloat (Edit2.Text));
        except
        ShowMessage('Veuillez entrer un nombre !');
end;

stephanesvh · Answer

Salut 

Merci g0belin pour ta reponse aussi prompt 

Je viens de taper la modification  au niveau de la declaration des variables, je n'ai plus le message d'erreur que j'ai cité dans le 1er post , mais par contre ça ma generer un autre message d'erreur


[Warning]Unit1.pas(73): Variable 'Edit1' might not have been initialized 
Comment initialiser les varaibles s'il vous plait ?? 

PS je suis un Newbie en delphi

RedDevlopper · Answer

desol&#233; c'est trop tard maintenant mais pour initiliser les variable issues d'une classe comme (TEdit) tu dois mettre:

Edit1:=TEdit.Create(nil);

avant d'utiliser ta variable

Message d'erreur avec un calcul de valeur TEdit

3 réponses

Votre réponse

Discussions similaires