fernando_vip Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Olá Pessoal, Voltei!!!!!..............hehe......................Alguém pode me dizer como corrigir os erros existentes nesse código?unit Projeto1;interfaceuses 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:Integerimplementation{$R *.dfm}procedure TFrmCalc.Btn1Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'1';if edtval. Text='0'thenedtval.Text:='1';end;procedure TFrmCalc.Btn14Click(Sender: TObject);beginope:='+';valor:=strtoint(edtval.Text);edtval.Text:='';Btn14.Enabled:=false;Btn13.Enabled:=false;btn11.Enabled:=false;btn12.Enabled:=false;end;procedure TFrmCalc.Btn2Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'2';if edtval. Text:='0'thenedtval.Text:='2';end;procedure TFrmCalc.Btn3Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'3';if edtval. Text:='0'thenedtval.Text:='3'end;procedure TFrmCalc.Btn4Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'4';if edtval. Text:='0'thenedtval.Text:='4'end;procedure TFrmCalc.Btn5Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'5';if edtval. Text:='0'thenedtval.Text:='5'end;procedure TFrmCalc.Btn6Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'6';if edtval. Text:='0'thenedtval.Text:='6'end;procedure TFrmCalc.Btn7Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'7';if edtval. Text:='0'thenedtval.Text:='7'end;procedure TFrmCalc.Btn8Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'8';if edtval. Text:='0'thenedtval.Text:='8'end;procedure TFrmCalc.btn9Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'9';if edtval. Text:='0'thenedtval.Text:=''end;procedure TFrmCalc.btn10Click(Sender: TObject);beginif edtval.Text<>'0'thenedtval.Text:=edtval.Text+'0';if edtval. Text:='0'thenedtval.Text:='0'end;procedure TFrmCalc.Btn13Click(Sender: TObject);beginope:='-';valor:=strtoint(edtval.Text);edtval.Text:='';Btn14.Enabled:=false;Btn13.Enabled:=false;btn11.Enabled:=false;btn12.Enabled:=false;end;procedure TFrmCalc.btn12Click(Sender: TObject);beginope:='*';valor:=strtoint(edtval.Text);edtval.Text:='';Btn14.Enabled:=false;Btn13.Enabled:=false;btn11.Enabled:=false;btn12.Enabled:=false;end;procedure TFrmCalc.btn11Click(Sender: TObject);beginope:='/';valor:=strtoint(edtval.Text);edtval.Text:='';Btn14.Enabled:=false;Btn13.Enabled:=false;btn11.Enabled:=false;btn12.Enabled:=false;end;procedure TFrmCalc.Btn15Click(Sender: TObject);beginBtn15.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);beginvalor2:= strtoint (edtval.Text);if ope='+' thenedtval.Text:= inttostr(valor=valor2);if ope='-' thenedtval.inttostr(valor+valor2);if ipe = '*' thenedtval.inttosr (valor+valor2);if ipe = '/' thenedtval.inttosr (valor+valor2);end;end.se precisarem de mais alguma informação :fernando_millenniuinfo@yahoo.com ounandinho@mfs.eng.br MSNO Portal de Brazlândia-df Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Março 22, 2005 Denunciar Share Postado Março 22, 2005 Olá fernando_vip,você deve especificar melhor.Que tipo de erro ta ocorrendo ae?Abs. Progr'amador. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest fernand_vip Postado Março 22, 2005 Denunciar Share Postado Março 22, 2005 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Kikonanet Postado Março 23, 2005 Denunciar Share Postado Março 23, 2005 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.