Fórum Componente p/ trabalhar com o Registry #288125
14/07/2005
0
estou precisando trabalhar com o registry da seguinte forma:
- possuo diversos forms que possuem componentes como checkbox, radiobuttons, edits de data e numero, etc..
em alguns dele qro gravar e ler o ultimo valor informado neles, para isso pretendo usar o registry, gravando lá as informações.
alguem conhece algo? (utilizo a Jedi mas ñ encontrei lá)
obrigado
Diogo
Diogoalles
Curtir tópico
+ 0Posts
14/07/2005
Sremulador
Gostei + 0
14/07/2005
Adriano Santos
Eu acho mais vantagem você criar uma UNIT que contenha as funções de Leitura e Escrita do registro, ai vc declara a UNIT em todos os seus forms e faz somente as chamadas...facim facim. E ainda por cima não fica vinculado a componentes de terceiros.
Falow
Gostei + 0
14/07/2005
Adriano Santos
Faz a Leitura
procedure TForm1.Button1Click(Sender: TObject); var ValorString : String; ValorBoleano : Boolean; ValorInteiro : Integer; Registro : TRegIniFile; begin Registro := TRegIniFile.Create(´MEU_REGISTRO´); ValorString := Chave.ReadString(´SECAO´,´CHAVE1´,ValorString); ValorBoleano := Chave.ReadBool(´SECAO´,´CHAVE1´,ValorBoleano); ValorInteiro := Chave.ReadInteger(´SECAO´,´CHAVE2´,ValorInteiro); Registro.Free; end;
Faz a gravação
procedure TForm1.Button2Click(Sender: TObject); var ValorString : String; ValorBoleano : Boolean; ValorInteiro : Integer; Registro : TRegIniFile; begin Registro := TRegIniFile.Create(´MEU_REGISTRO´); ValorString := Edit1.Text; ValorBoleano := CheckBox1.Checked; ValorInteiro := 123456; Chave.WriteString(´SECAO´,´CHAVE1´,ValorString); Chave.WriteBool(´SECAO´,´CHAVE1´,ValorBoleano); Chave.WriteInteger(´SECAO´,´CHAVE2´,ValorInteiro); Registro.Free; end;
Não esqueca de declarar a unit REGISTRY no uses.
Gostei + 0
14/07/2005
Diogoalles
é fácil mesmo.. utilizo gravação e leitura do registry a muito tempo...
só que diante da necessidade de gravar os ultimos valores de determinados componentes (pensei no registry) estou a procura de algum componente que já faça isso.. simplifique mais ainda o que é fácil..
-se alguem souber de um fico agradecido.. senão vou fazer na ´mão´ mesmo.
Diogo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)