Delphi dicas

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

// 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;

por : Mauricio Magalhães