Erros de compilação (era: Me ajudem a identificar...)

Delphi

21/02/2008

procedure TForm1.Button1Click(Sender: TObject);
var
x,co2:int
begin
x:=strtoint(edit1.text);
co2:=strtoint(edit2.text);
if x < 1 then
begin
edit5.text:=´O NÚMERO DE ÁRVORES NÃO PODE SER MENOR QUE 1´;
end;
if x > 0 then
begin
co2:=x*200;
edit1.text:=inttostr(x);
edit2.text:=inttostr(co2);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit5.clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
litros,horas: float;
begin
litros:=strtofloat(edit4.text);
horas:=strtofloat(edit3.Text);
if horas < 0 then
begin
edit6.text:=´O NÚMERO DE HORAS NÃO PODE SER MENOR QUE ZERO!´;
end;
if horas > 0 then
begin
litros:=horas*1,8;
edit4.text:=floattostr(litros);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.clear;
edit4.clear;
edit6.clear;
end;


* ERROS QUE ESTÃO SENDO ACUSADOS:

---> ´(´ expected but ´BEGIN´ found
---> undeclared identifier : ´float´
---> ´END´ expected but ´,´ found
---> ´.´ expected but ´;´ found


OBS: SOU INICIANTE, TENHAM PACIÊNCIA COMIGO.


Danilo_ovão

Danilo_ovão

Curtidas 0

Respostas

Facc

Facc

21/02/2008

procedure TForm1.Button3Click(Sender: TObject);
litros,horas: float;


na procedure do button3 não é float e sim real ou extended


GOSTEI 0
Rodc

Rodc

21/02/2008

Já que você é iniciante, vou dar duas dicas:
- Quando postar um código, coloque ele entre as tags ´CODE´. Botão ´Code´ na tela de postagem.
- Identifique no código onde o delphi está apontando o erro, para que os outros não tenham que ficar analisando todo o seu código procurando onde está o erro. Ex: 
procedure TForm1.Button3Click(Sender: TObject);
var 
   litros,horas: float;    // Erro aqui: undeclared identifier : ´float´ 
begin



GOSTEI 0
Danilo_ovão

Danilo_ovão

21/02/2008

Valeu galera pela ajuda! :lol:
Estou conseguindo rodar, mas outro erro que está dando é esse:

http://www.orkut.com/AlbumZoom.aspx?uid=5830788098957591793&pid=1203610563169&aid=1202981910


GOSTEI 0
Jpauloss

Jpauloss

21/02/2008

[quote:43f54486b6=´Danilo_ovão´]Valeu galera pela ajuda! :lol:
Estou conseguindo rodar, mas outro erro que está dando é esse:

http://www.orkut.com/AlbumZoom.aspx?uid=5830788098957591793&pid=1203610563169&aid=1202981910[/quote:43f54486b6]
Vc deve estar colocando ponto ao inves de virgula. Tem que ser exemplo:
1.000,00
Acho que com float é isso, se colocar 1,000.00 --> da o erro.


GOSTEI 0
Danilo_ovão

Danilo_ovão

21/02/2008

Me ajuda ai galera, por favor.


GOSTEI 0
Jpauloss

Jpauloss

21/02/2008

[quote:29724cecac=´Danilo_ovão´]Me ajuda ai galera, por favor.[/quote:29724cecac]
Em algum edit vc coloca vírgula?
Como é explique aí...
Estava com esse problema com relação ao usuário digitar ponto ao invés de vírgula nos centavos...

Se usar só valores com vírgula e ponto em algum edit coloque essa função no evento [b:29724cecac]OnKeyPress[/b:29724cecac] do edit em questão.
 if not(key in [´0´..´9´,´.´,´,´,8,13]) then
  key := 0;

 if key in [´,´,´.´] then
  key := DecimalSeparator;

 if key = DecimalSeparator then
 if pos(key,TEdit(Sender).Text) <> 0 then
  key := 0;

Veja aí e me diga.


GOSTEI 0
POSTAR