Usar o ´with´ com uma variavel?
14/02/2006
0
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
Curtir tópico
+ 0
Responder
Posts
14/02/2006
Massuda
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.
Responder
14/02/2006
Aroldo Zanela
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)