Calcdelphi

[fernando_vip]

Olá Pessoal, Voltei!!!!!

..............hehe......................

Alguém pode me dizer como corrigir os erros existentes nesse código?

unit Projeto1;

interface

uses

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

Dialogs, StdCtrls;

type

TFrmCalc = class(TForm)

Label1: TLabel;

Btn1: TButton;

Btn2: TButton;

Btn3: TButton;

Btn4: TButton;

Btn5: TButton;

Btn6: TButton;

Btn7: TButton;

Btn8: TButton;

btn9: TButton;

btn10: TButton;

btn11: TButton;

btn12: TButton;

Btn13: TButton;

Btn14: TButton;

Btn15: TButton;

Btn16: TButton;

Edit1: TEdit;

procedure Btn1Click(Sender: TObject);

procedure Btn14Click(Sender: TObject);

procedure Btn2Click(Sender: TObject);

procedure Btn3Click(Sender: TObject);

procedure Btn4Click(Sender: TObject);

procedure Btn5Click(Sender: TObject);

procedure Btn6Click(Sender: TObject);

procedure Btn7Click(Sender: TObject);

procedure Btn8Click(Sender: TObject);

procedure btn9Click(Sender: TObject);

procedure btn10Click(Sender: TObject);

procedure Btn13Click(Sender: TObject);

procedure btn12Click(Sender: TObject);

procedure btn11Click(Sender: TObject);

procedure Btn15Click(Sender: TObject);

procedure Btn16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrmCalc: TFrmCalc;

ope : STRING;

valor,valor2:Integer

implementation

{$R *.dfm}

procedure TFrmCalc.Btn1Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'1';

if edtval. Text='0'then

edtval.Text:='1';

end;

procedure TFrmCalc.Btn14Click(Sender: TObject);

begin

ope:='+';

valor:=strtoint(edtval.Text);

edtval.Text:='';

Btn14.Enabled:=false;

Btn13.Enabled:=false;

btn11.Enabled:=false;

btn12.Enabled:=false;

end;

procedure TFrmCalc.Btn2Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'2';

if edtval. Text:='0'then

edtval.Text:='2';

end;

procedure TFrmCalc.Btn3Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'3';

if edtval. Text:='0'then

edtval.Text:='3'

end;

procedure TFrmCalc.Btn4Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'4';

if edtval. Text:='0'then

edtval.Text:='4'

end;

procedure TFrmCalc.Btn5Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'5';

if edtval. Text:='0'then

edtval.Text:='5'

end;

procedure TFrmCalc.Btn6Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'6';

if edtval. Text:='0'then

edtval.Text:='6'

end;

procedure TFrmCalc.Btn7Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'7';

if edtval. Text:='0'then

edtval.Text:='7'

end;

procedure TFrmCalc.Btn8Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'8';

if edtval. Text:='0'then

edtval.Text:='8'

end;

procedure TFrmCalc.btn9Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'9';

if edtval. Text:='0'then

edtval.Text:=''

end;

procedure TFrmCalc.btn10Click(Sender: TObject);

begin

if edtval.Text<>'0'then

edtval.Text:=edtval.Text+'0';

if edtval. Text:='0'then

edtval.Text:='0'

end;

procedure TFrmCalc.Btn13Click(Sender: TObject);

begin

ope:='-';

valor:=strtoint(edtval.Text);

edtval.Text:='';

Btn14.Enabled:=false;

Btn13.Enabled:=false;

btn11.Enabled:=false;

btn12.Enabled:=false;

end;

procedure TFrmCalc.btn12Click(Sender: TObject);

begin

ope:='*';

valor:=strtoint(edtval.Text);

edtval.Text:='';

Btn14.Enabled:=false;

Btn13.Enabled:=false;

btn11.Enabled:=false;

btn12.Enabled:=false;

end;

procedure TFrmCalc.btn11Click(Sender: TObject);

begin

ope:='/';

valor:=strtoint(edtval.Text);

edtval.Text:='';

Btn14.Enabled:=false;

Btn13.Enabled:=false;

btn11.Enabled:=false;

btn12.Enabled:=false;

end;

procedure TFrmCalc.Btn15Click(Sender: TObject);

begin

Btn15.Enabled:=true;

Btn13.Enabled:= true;

btn11.Enabled:= true;

btn12.Enabled:= true;

edival.Text:='0';

valor:= strtoint ('0');

valor2:= strtoint ('0');

end;

procedure TFrmCalc.Btn16Click(Sender: TObject);

begin

valor2:= strtoint (edtval.Text);

if ope='+' then

edtval.Text:= inttostr(valor=valor2);

if ope='-' then

edtval.inttostr(valor+valor2);

if ipe = '*' then

edtval.inttosr (valor+valor2);

if ipe = '/' then

edtval.inttosr (valor+valor2);

end;

end.

se precisarem de mais alguma informação :

fernando_millenniuinfo@yahoo.com ou

nandinho@mfs.eng.br MSN

O Portal de Brazlândia-df

[Progr'amador]

Olá fernando_vip,

você deve especificar melhor.

Que tipo de erro ta ocorrendo ae?

Abs. Progr'amador.

[Guest fernand_vip]

O Portal Web de Brazlândia!!!

olá!!

Fica até difícil especificar qual erro, mas eu vou postá-los como estão aparecendo:

[Error] Projeto1.pas(55): ';' expected but 'IMPLEMENTATION' found

[Error] Projeto1.pas(61): Undeclared identifier: 'edtval'

[Error] Projeto1.pas(63): 'THEN' expected but identifier 'Text' found

[Error] Projeto1.pas(72): ')' expected but identifier 'Text' found

[Error] Projeto1.pas(82): Undeclared identifier: 'edtval'

[Error] Projeto1.pas(84): 'THEN' expected but identifier 'Text' found

[Error] Projeto1.pas(90): 'THEN' expected but identifier 'Text' found

[Error] Projeto1.pas(92): 'THEN' expected but identifier 'Text' found

[Error] Projeto1.pas(98): 'THEN' expected but identifier 'Text' found

[Error] Projeto1.pas(100): 'THEN' expected but identifier 'Text' found

[Kikonanet]

Vamos lá por ordem dos erros:

1 - falta ';'

var
FrmCalc: TFrmCalc;
ope : STRING;
valor,valor2:Integer; // aqui

2 - você só declarou Edit1 e não Edtval A maioria dos erros são porque você fez sua condição errada. ex:

if edtval.Text<>'0'then
edtval.Text:=edtval.Text+'4';
if edtval. Text:='0'then // aqui... o erro edtval.Text:='0'

Correto: if edtval.text='0' then... 3 - Erro na saída de dados

edtval.Text:= inttostr(valor=valor2);

Correto: IntToStr(Valor)+'='+IntToStr(Valor2);

qualquer coisa posta ai.

Abs.

Kiko