erro compilando
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
Curtidas 0
Respostas
Massuda
05/10/2006
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.
GOSTEI 0