Fórum erro compilando #330781
05/10/2006
0
Estou usando o código abaixo, e qd uso CTRF+F9 aprece essa mensagem:
[warning]UnitCadastro.pas[177]:variable ´MesGestacao´ might have not been initialized
´variável ´mesgestacao´ pode não ter sido inicializada´
Como resolvo isso?
Obrigado!
procedure TFrmCadastro.DsGestanteDataChange(Sender: TObject;
Field: TField);
Var
MesGestacao :integer;
begin
If DsIdades.State in [DsBrowse] Then
MesGestacao := (MonthsBetween(EndOfTheMonth(Date), (DMNutricao.TblCadClientesDTGESTACAO.AsDateTime)));
mesgestacao := MesGestacao div 12;
DbeMesesGestacao.Text := IntToStr(MesGestacao);
end;
End.
[warning]UnitCadastro.pas[177]:variable ´MesGestacao´ might have not been initialized
´variável ´mesgestacao´ pode não ter sido inicializada´
Como resolvo isso?
Obrigado!
procedure TFrmCadastro.DsGestanteDataChange(Sender: TObject;
Field: TField);
Var
MesGestacao :integer;
begin
If DsIdades.State in [DsBrowse] Then
MesGestacao := (MonthsBetween(EndOfTheMonth(Date), (DMNutricao.TblCadClientesDTGESTACAO.AsDateTime)));
mesgestacao := MesGestacao div 12;
DbeMesesGestacao.Text := IntToStr(MesGestacao);
end;
End.
Alexandretavares
Curtir tópico
+ 0
Responder
Posts
05/10/2006
Massuda
Esse é um warning, ou seja um aviso do compilador, não um erro. Serve para o compilador sinalizar que tem algo estranho no seu código, cabe a você decidir se é ou não um erro.
No caso, o compilador detectou que se a condição do if for falsa, a variável mesgestacao é usada antes de receber algum tipo de valor. Para resolver isso, você precisa inicializar mesgestacao com algum valor que faça sentido na sua aplicação ou rever seu código para ver se faz sentido em relação a sua aplicação.
No caso, o compilador detectou que se a condição do if for falsa, a variável mesgestacao é usada antes de receber algum tipo de valor. Para resolver isso, você precisa inicializar mesgestacao com algum valor que faça sentido na sua aplicação ou rever seu código para ver se faz sentido em relação a sua aplicação.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)