Buscar por:

Criando um aquivo ini bem facil e completo(string,integer,bool)

Código

// Criando um aquivo INI bem facil e completo

//declare IniFiles no uses

//um exemplo de como grava um arquivo ini

procedure TForm1.Button1Click(Sender: TObject);

var

   Ini : TIniFile;

begin

   //gravando uma string

   WriteString('DADOS', 'USER', 'MARIA');

  //gravando um integer

  WriteIntenger('DADOS', 'PASSWORD', '159');

  //grando um boolean

  WriteBool('DADOS' , 'GRAVAR_SENHA', 0);

end;

//lendo um arquivo ini 

procedure TForm1.Button2Click(Sender: TObject);

var

   Ini : TIniFile;

   user: string;

   password: integer;

   pass_c: boolean;

begin

   //lendo uma string

   user:=ReadString('DADOS', 'USER', '');

  //lendo um integer

  password:=ReadIntenger('DADOS', 'PASSWORD', 0);

  //lendo um boolean

  pass_c:=ReadBool('DADOS' , 'GRAVAR_SENHA', 0);

end;