Erro No Codigo(simples)

[traira007]

Fala galera to crianu uma calculadora básica

Ela funciona assim:

O usuario escolhe no checkbox que opcao vai ser:

SOMAR/SUBTRAIR/DIVIDIR/MULTIPLICAR

ou todos eles de uma vez

ai eu criei um messagebox para enviar todos os resultados..

Mais como que eu posso fazer um message box que so imprima so o resultado da opcao que eu escolhi no checkbox..

o codigo ate agora está aqui..

so que está danu erro no if

sse alguém puder da uma olhada

grato

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

btn_calcular: TButton;

btn_limpar: TButton;

edt_num1: TEdit;

edt_num2: TEdit;

check_somar: TCheckBox;

check_subtrair: TCheckBox;

check_dividir: TCheckBox;

check_multiplicar: TCheckBox;

Label1: TLabel;

Label2: TLabel;

procedure btn_limparClick(Sender: TObject);

procedure btn_calcularClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_calcularClick(Sender: TObject);

var

result ,

num1,num2,soma,sub,divi,mult:integer;

begin

if edt_num1.text='' then

ShowMessage('Digite um valor para o 1º número')

else if edt_num2.text='' then

ShowMessage('Digite um valor para o 2º número');

if check_somar.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

soma:=num1 + num2;

ShowMessage('O resultado da soma é'+IntToStr(soma))

else if check_subtrair.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

sub:=num1 - num2;

ShowMessage('O resultado da subtracao é'+IntToStr(sub));

if check_dividir.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

divi:=(num1 / num2);

result:=divi;

if check_subtrair.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

mult:=num1 * num2;

result:=mult;

end;

procedure TForm1.btn_limparClick(Sender: TObject);

begin

edt_num1.text:='';

edt_num2.text:='';

check_somar.Checked:=False;

check_subtrair.Checked:=False;

check_dividir.Checked:=False;

check_multiplicar.Checked:=False;

end;

end.

[Vivendo&Aprendendo]

Olá

Segue em anexo um exemplo usando o MEMO para mostrar os resultados...

Alexandre

Calculadora.rar

Calculadora.rar

Editado Março 22, 2007 por Vivendo&Aprendendo