Buscar por:

Manipulando arquivos .ini

Código

//Inclua a unit IniFiles na clausula uses do seu form. 

Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ; Condicao : Boolean); 

var 

ArqIni : TIniFile; 

begin 

ArqIni := TIniFile.Create('c:windowstempTeste.Ini'); 

Try 

ArqIni.WriteInteger('Dados', 'Numero', Numero); 

ArqIni.WriteString('Dados', 'Texto', Texto); 

ArqIni.WriteBool('Dados', 'Condição', Condicao); 

Finally 

ArqIni.Free; 

end; 

end; 

Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto : String ; Var Condicao : Boolean); 

var 

ArqIni : tIniFile; 

begin 

ArqIni := tIniFile.Create('c:windowstempTeste.Ini'); 

Try 

Numero := ArqIni.ReadInteger('Dados', 'Numero', Numero ); 

Texto := ArqIni.ReadString('Dados', 'Texto', Texto ); 

Condicao := ArqIni.ReadBool('Dados', 'Condição', Condicao ); 

Finally 

ArqIni.Free; 

end; 

end; 

// Utilize as procedures assim: 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

GravaIni(1234,'TESTE',True); 

end; 

procedure TForm1.Button2Click(Sender: TObject); 

var 

N: Integer; 

T: String; 

C: Boolean; 

begin 

LeIni(N,T,C); 

Showmessage(IntToStr(N)+' '+T); 

end;