le probleme est que ton op est extended alors que le case ne supporte (comme te le dit le compilateur) que le type ordinal (regarde l'aide de Delphi pour avoir plus de précision sur ce qu'est le type ordinal)
il faut donc que tu déclares ton op en Integer (par exemple) ou mieux en type énuméré:
Code :
- type
- TOperations = (oAddition, oSoustraction, oMultiplication, oDivision);
- var
- op : TOperations;
|
ensuite dans ton code, tu utiliseras:
Code :
- procedure TForm2.Button18Click(Sender: TObject);//bouton +
- begin
- tmp := Strtofloat(Edit1.Text);
- Edit1.TExt := '0';
- op := oAddition;
- end;
- procedure TForm2.Button5Click(Sender: TObject);//Bouton =
- begin
- case op of
- oAddition: Edit1.TExt:=FloatToStr(tmp+strtofloat(Edit1.Text));
- oSoustraction :;
- oMultiplication :;
- oDivision :;
- else ShowMessage('Operation non supportée');
- end;
- end;
|
J'espere que c'est a peu pres clair
[edit]--Message édité par JWhy--[/edit]
---------------
www.alliancefrancophone.org ... Home is where the heart is