Como gravar o itemindex dos Combobox sem usar Banco?

Delphi

04/07/2004

Perdoem a pergunta básica :Tenho vários combobox em um form (não DBcombo) com lines de 0 a 9 para seleção de usuário. Pergunto se é possivel que os valores selecionados fiquem (apos fechar aplicação) até nova seleção do usuário. As lines já estão lá só preciso que seleção seja persistente.Quero evitar dbcombo pois teria que colocar umas vinte tables (se não der de outro jeito vai ter que ser o que não é o fim do mundo).

Agradeço a atenção


Rm

Rm

Curtidas 0

Respostas

Dataclass

Dataclass

04/07/2004

RM,

Não entendi porque tu terias que criar 20 tables!?!?!

Aqui vai uma solução bastante usada para guardar configurações.

1.Adiciona no Uses : IniFiles
2.Declara a váriavel global gArquivoCfg:TIniFile
3.Procedimento para criar/configurar padrão

procedure TFr_Principal.InicializaIni();
begin  
  if not FileExists(´C:\CONFIG.CFG´) then
  begin
    {Caso o arquivo não exista crie e configure um valor padrão}
    pArquivoCfg    :=   TIniFile.Create(´C:\CONFIG.CFG´);
    pArquivoCfg.WriteString(´GERAL´,´USUARIO´,´usuarioInicial´);
  end
  else
  begin
    {Caso já exista apenas o abra e o atribua à variável}
    pArquivoCfg    :=   TIniFile.Create(DirAtual+´config.cfg´);
  end;
end;


4.Lendo valor :
 
 {o Edit vai ler o valor do ini,caso não tenha valor ele vai receber ´vazio´}
 edUsuario.Text := pArquivoCfg.ReadString(´GERAL´,´USUARIO´,´vazio´);


5.Escrevendo valor no Ini:
 
 {o Edit vai ler o valor do ini,caso não tenha valor ele vai receber ´vazio´}
 pArquivoCfg.WriteString(´GERAL´,´USUARIO´,edUsuario.Text);



6.Agora é adaptar pra seu caso e melhorar o código!


GOSTEI 0
Rm

Rm

04/07/2004

Obrigado pela atenção .Já adaptei .Sobre teu questionamento a respeito das 20 Tables : Seriam 20 db combos que preciso . Criaria uma tabela com os dados e como cada uma deve estar setada em um registro (sem regra fixa ou sequencia determinada) colocaria 20 componentes tables cada um associado a um DBcombo. Não sei se é absurdo mas é o que tinha imaginado... Qualquer coisa é só falar ...


Até mais


GOSTEI 0
POSTAR