Buscar por:

Trabalhando com INI

Código

Pra quem usa arquivos ini segue uma dica que pode ser que a mioria já utilize, mas em todo caso aqui vai ela:

Leitura

Declare uma função pública no seu main form

Function TFrm_main.Fu_leIni(Sessao, Campo:String):String;

var

MeuIni:Tinifile;

Begin

Meuini := TIniFile.Create('meuIni.ini');

Fu_Leini:=MeuIni.ReadString(Sessao, Campo, '');

meuini.Free;

end;

Para gravar, declare uma procedure:

Procedure TFrm_main.Pro_GravaIni(Sessao, Campo, Valor:String);

Var

Meuini:TInifile;

begin

meuini := TIniFile.Create('meuini.ini');

meuini.WriteString(Sessao,Campo,Valor);

meuini.free;

end;