procedure TF_Manut.DBEdit12KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
// Resistência de isolamento AtBt
var
AtBt_Med : Real;
AtBt_Ref : Real;
begin
if key = 13 then
Begin
AtBt_Med := StrToFloat(F_manut.DBEDit12.text);
AtBt_Ref := StrToFloat(F_setup.DBEdit18.Text);
DBEdit31.Text := FloatToStr(abs(AtBt_Ref - AtBt_Med));
if AtBt_Med AtBt_Ref then
Begin
DBEdit31.Font.Color := ClRed;
ShowMessage('Valor de Referência = ' + F_setup.DBEdit18.Text);
DBEdit13.SetFocus;
end
else
Begin
DBEdit31.Text := '';
DBEdit13.SetFocus;
end;
end;
end;
é nesse ponto que o erro está ocorrendo ...
tenho várias procedures com o mesmo teor, mudando as variáveis mas a
estrutura é sempre a mesma associadas ao evento OnKeyDown
v se pode me ajudar ... to me batendo tal qual bengala de cego
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 18 de novembro de 2008 18:49
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [Error] Unit4.pas(416): Statement expected but
'PROCEDURE' found
2008/11/18 [EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br:
Meu sistema começou a mostrar esse erro
[Error] Unit4.pas(416): Statement expected but 'PROCEDURE' found
já verifiquei em tudo quanto é canto e não consigo descobrir ...
alguem pode me dar uma dica ...
Sem código fica um pouco mais difícil de adivinhar, mas parece que
você tem 'begin' demais e 'end' de menos. Procura no bloco anterior
daonde o compilador parar.
Joao Morais
[As partes desta mensagem que não continham texto foram removidas]
