Passagem de Parametros em procedures
Bom Dia,
Estou precisando de fazer uma procedure para gravar um arquivo de configuração INI, e estou querendo fazer isto através de um procedimento, onde eu irei passar o nome do Grupo, o nome do campo e o valor do campo.
Até ae é beleza se todos os valores fossem iguais, só que os valores do meu campo podem ser:
edit, radiogrup, checkbox ou um ComboBox.
Minha ideia é a seguinte:
Minha pergunta é: No Campo valor eu declaro o quê?
e como usarei o IF para identificar o tipo de valor?
ps. Os campos em destaque é o que preciso mudar para que funcione
Desde já agradeço.
Dirceu Morais
Estou precisando de fazer uma procedure para gravar um arquivo de configuração INI, e estou querendo fazer isto através de um procedimento, onde eu irei passar o nome do Grupo, o nome do campo e o valor do campo.
Até ae é beleza se todos os valores fossem iguais, só que os valores do meu campo podem ser:
edit, radiogrup, checkbox ou um ComboBox.
Minha ideia é a seguinte:
Grava('Banco de dados','Nome do banco',edit1.text);
Grava('Banco de dados','Usar senha',checkbox.Checked);
Grava('Nota Fiscal','Quantidade de Itens',comboBox.ItemIndex);
Grava('Sistema','Data Atual',deDateS.Date);
Procedure Grava(Grupo, Campo : String; Valor : ??????); Begin if Campo = String then ArqIni.WriteString(Grupo, Campo, Valor) Else if Campo = Boolean Then ArqIni.WriteBool(Grupo, Campo, Valor) Else if Campo = Integer Then ArqIni.WriteInteger(Grupo, Campo, Valor) Else if campo = Float Then ArqIni.WriteFloat(Grupo, Campo, Valor) Else ArqIni.WriteDate(Grupo, Campo, Valor) end;
Minha pergunta é: No Campo valor eu declaro o quê?
e como usarei o IF para identificar o tipo de valor?
ps. Os campos em destaque é o que preciso mudar para que funcione
Desde já agradeço.
Dirceu Morais
Dirceu Morais
Curtidas 0
Respostas
Emerson Nascimento
06/04/2011
declare Valor como Variant (unit Variants).
GOSTEI 0