Iniciante com problemas

[amanda_wayaway 0]

Olá pessoal!

tudo boun ?

 

eu estou com um problema, estou tentando fazer uam calculadora no delphi, porem dah erro no select case

e eu nao consigui arrumar ate agora, to precisando de ajuda...

o codigo eh este aki:

 

 

procedure TCalculadora.BtnSubtraiClick(Sender: TObject);

begin

Num1 := StrToFloat(EdtVisor.Text);

Operacao := 'Subtrai';

EdtVisor.Clear;

end;

 

procedure TCalculadora.BtnMutiplicaClick(Sender: TObject);

begin

Num1 := StrToFloat(EdtVisor.Text);

Operacao := 'Vezes';

EdtVisor.Clear;

end;

 

procedure TCalculadora.BtnSomaClick(Sender: TObject);

begin

Num1 := StrToFloat(EdtVisor.Text);

Operacao := 'Soma';

EdtVisor.Clear;

end;

 

procedure TCalculadora.BtnDivideClick(Sender: TObject);

begin

Num1 := StrToFloat(EdtVisor.Text);

Operacao := 'Divisao';

EdtVisor.Clear;

end;

 

procedure TCalculadora.BtnIgualClick(Sender: TObject);

var

contafinal:Real ;

begin

Num2 := StrToFloat(EdtVisor.Text);

 

case Operacao of

'Soma' : contafinal := Num1 + Num2;

'Subtrai' : contafinal := Num1 - Num2;

'Vezes' : contafinal:= Num1 * Num2;

'Divisao' : contafinal := Num1 / Num2;

end;

EdtVisor.Text := FloatToStr(contafinal);

end.

 

Obrigado Pela Atenção!

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[bdexterholland 0]

Bom, não tenho certeza se é isso, mas acredito que o delphi não permite strings no case, ao invés de ter uma variável do tipo string gaurdando o tipo da operação, usa uma do tipo inetger ou char guardando o um código para cada tipo.exemplosoma=1subtração=2multiplicação=3divisão=4

[amanda_wayaway 0]

Bom, não tenho certeza se é isso, mas acredito que o delphi não permite strings no case, ao invés de ter uma variável do tipo string gaurdando o tipo da operação, usa uma do tipo inetger ou char guardando o um código para cada tipo.exemplosoma=1subtração=2multiplicação=3divisão=4

Obrigadoo pela ajuda!acho que agora deu!Brigadaoo!=] http://forum.imasters.com.br/public/style_emoticons/default/blush.gif