Teria como declarar uma variável com um valor padrão na Procedures?
procedure TfrmManutencao01.FormShow(Sender: TObject);
var
lPriAber : Boolean = True;
begin
.
.
.
end;
sei que assim como está acima o Delphi não aceita.
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeTeria como declarar uma variável com um valor padrão na Procedures?
procedure TfrmManutencao01.FormShow(Sender: TObject);
var
lPriAber : Boolean = True;
begin
.
.
.
end;
sei que assim como está acima o Delphi não aceita.
Respondendo diretamente a pergunta: Não, Cannot initialize local variables
.
O que você pode fazer é declarar a variável antes da seção implementation
var
FormX : TFormX;
lPriAber : Boolean = True;
Dessa forma podera usa-a no procedimento.
Se por acaso não for alterar seu valor, pode-se localmente declara-la como constante.
procedure TfrmManutencao01.FormShow(Sender: TObject);
const
lPriAber : Boolean = True;
begin
..
end;
Ainda não consegui entender a necessidade.