Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, estou com o seguinte código:
>
procedure TFrelat.zuera;
begin
case Tb.State of
Dsinsert: begin
Btnovo.Enabled:= false;
Bteditar.Enabed:= false;
Bcancel.Enabled:= true;
Btsalvar.Enabled:= true;
Btexcluir.Enabled:= false;
end;
end;obs.: a procedure zuera já foi declarada.
aparentemente está tudo certo, porém, ao compilar aparece o seguinte erro:
[Error] Urelat.pas(130): Undeclared identifier: 'Enabed'
[Error] Urelat.pas(137): Statement expected but 'PROCEDURE' found
[Fatal Error] Pprincipal.dpr(6): Could not compile used unit 'Urelat.pas'
alguém poderia me dizer o que fiz de errado ?
Grato.
Uhm, interessante Hugo, vou testar aqui e posto o resultado =DMuito obrigado!
Mas Hugo, veja, os outros erros são atribuídos ao outro código:
>
procedure TFrelat.zuera;
begin
case Tb.State of
Dsinsert: begin
Btnovo.Enabled := false;
Bteditar.Enabled := false;
Bcancel.Enabled := true;
Btsalvar.Enabled := true;
Btexcluir.Enabled := false;
end;
end;procedure TFrelat.BtnovoClick(Sender: TObject); ** AQUI
begin
Tb.Open;
Tb.Append;
Dbbebidas.SetFocus;
Dbdata.Text := FormatDateTime('dd"/"mm"/"yyyy', now);
end;erro: "[Error] Urelat.pas(137): Statement expected but 'PROCEDURE' found"
porque será ? o.O
>
procedure TFrelat.zuera;
begin
case Tb.State of
Dsinsert:
begin
Btnovo.Enabled := false;
Bteditar.Enabled := false;
Bcancel.Enabled := true;
Btsalvar.Enabled := true;
Btexcluir.Enabled := false;
end;
end;End;
Faltou um End Aew!!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Pelo amor de Deus...daonde saiu esse outro end ?Bom, vamos contar...um para o 1º BEGINo outro para o 2º BEGINe o último ? o.O
1º - Begin da Procedure...
2º - Begin do State...
3º - Begin do CASE???? http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif
Hehe!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Ahhmmm...tinha me esquecido do begin da procedure...OAIEHaehoioae...obrigado man, até a próxima!
Ok!!!
Acontece...
Abraço e até a próxima!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Hugo, aproveitando...como eu poderia fazer o seguinte:habilitar o(s) botão(ões) X somente após quando todos os campos do tipo TDBEdit ($) fossem preenchidos ?
Bom, a única forma que sei é a manual mesmo...
If .... ThenBegin Application.messagebox(...); Edt?????.SetFocus; Abort;End;
Uhm, entendi.Mais uma vez, obrigado! ;)
Como posso gerar um gráfico a partir de dados de um BD ?E qual componente poderei usar ?Grato desde já.
Você escreveu Enabled Errado na linha de nº 130...
corrigindo esse já acerta o seguinte...
Beleza?
Falow aew... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
PS.: Quer fazer algo mais legal???
Coloca assim:
No Create do Form faça:
Testa aew!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif