Guardar no INI CheckBox

Delphi

23/03/2004

Como faço, para quardar posição de um CheckBox, no INI e recuperar
o mesmo?

Grato
juarezber@terra.com.br


Juarezber

Juarezber

Curtidas 0

Respostas

Nerdex

Nerdex

23/03/2004

de presente... um pedacinho da minha aplicação...

//retira o nº do HD
GetVolumeInformation(PChar(´C:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
NumHD:=IntToHex(Serial,8);

Cam:=GetCurrentDir+´\´; //retira o caminho da aplicação

if not FileExists(Cam+´CADConfig.ini´) then
begin
//cria o ini
IniReg:=TIniFile.Create(Cam+´CADConfig.ini´);
IniReg.WriteString(´reg´,´Data´,NumHD);
IniReg.Free;
end else
begin
//laia o nº HD do ini
LeReg:=TIniFile.Create(Cam+´CADConfig.ini´);
ReReg:=LeReg.ReadString(´reg´,´Data´,´´);
LeReg.Free;
//verifica se o nº do HD é igual ao do ini
if ReReg<>NumHD then
begin
MessageDlg(´O sistema CadCds 3, detectou uma instalação´, mtError,[mbOk], 0);
MessageDlg(´CadCds 3, será encerrado´, mtInformation,[mbOk], 0);
application.terminate;
end;
end;


GOSTEI 0
Juarezber

Juarezber

23/03/2004

Nerdex, agradecido por querer ajudar, mas não é isso que eu quero.

juarezber@terra.com.br


GOSTEI 0
Paulo_amorim

Paulo_amorim

23/03/2004

Olá

Você quer a posição dentro do Form ou o Status (Checked = True)

Ambos da mesma maneira:

var IniFile: TIniFiles;
begin
  IniFile := TIniFile.Create(<seu arquivo ini>);
  try  
    { Seção CheckBox, pegar conteúdo do campo VALOR }
    IniFile.Readstring(´CheckBox´, ´valor´, 0);
  finally
     IniFile.Free;
  end;
end;


Esse código pega do Ini um valor qualquer...ai vc define de acordo com tua necessidade...

Para gravar no ini, use Writestring(seção, campo, valor);


GOSTEI 0
POSTAR