Usar o ´with´ com uma variavel?
Procedimento:
procedure Botoes(Botao,Formulario:String);
begin
if Botao = ´ALterar´ then
begin
with Formulario do <-- Erro
begin
btbtnGravar.Enabled := True;
btbtnNovo.Enabled := False;
btbtnAlterar.Enabled := False;
btbtnCancelar.Enabled := True;
btbtnExcluir.Enabled := False;
btbtnSair.Enabled := False;
btbtnPrimeiro.Enabled := False;
btbtnAnterior.Enabled := False;
btbtnProximo.Enabled := False;
btbtnUltimo.Enabled := False;
end;
end;
end;
Erro:
Record, object or class type required
Duvida:
Alguem sabe como usar o ´with´ com uma variavel?
Obrigado pela atenção.
procedure Botoes(Botao,Formulario:String);
begin
if Botao = ´ALterar´ then
begin
with Formulario do <-- Erro
begin
btbtnGravar.Enabled := True;
btbtnNovo.Enabled := False;
btbtnAlterar.Enabled := False;
btbtnCancelar.Enabled := True;
btbtnExcluir.Enabled := False;
btbtnSair.Enabled := False;
btbtnPrimeiro.Enabled := False;
btbtnAnterior.Enabled := False;
btbtnProximo.Enabled := False;
btbtnUltimo.Enabled := False;
end;
end;
end;
Erro:
Record, object or class type required
Duvida:
Alguem sabe como usar o ´with´ com uma variavel?
Obrigado pela atenção.
Ullrich
Curtidas 0
Respostas
Massuda
14/02/2006
Dentro da sua procedure, Formulario é uma string... with não se aplica a strings, apenas a records e objetos.
No seu caso, você pode simplesmente passar o form (não o nome do form) como parâmetro para sua procedure.
No seu caso, você pode simplesmente passar o form (não o nome do form) como parâmetro para sua procedure.
GOSTEI 0
Aroldo Zanela
14/02/2006
Colega,
A reposta que procura está na informação que você possui.
A reposta que procura está na informação que você possui.
Erro:
Record, object or class type required
GOSTEI 0