Array
(
)

Usar o ´with´ com uma variavel?

Ullrich
   - 14 fev 2006

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.


Massuda
   - 14 fev 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.


Aroldo Zanela
   - 14 fev 2006

Colega,

A reposta que procura está na informação que você possui.


Citação:

Erro:
Record, object or class type required