Delphi INI file Save and read

// need to reference inifiles uses   System. Inifiles;

//Save INI configuration fileprocedureTform1.btnsaveclick (sender:tobject);varMyinifile:tinifile; FilePath:string;beginfilepath:= Extractfilepath (application.exename) +'Dbconfig.ini';//get the path to the INI fileMyinifile: = Tinifile.Create(filepath); Trymyinifile.writestring ('dbconf','Server', Edtserver.text);//Server AddressMyinifile.writestring ('dbconf','Port', Edtport.text);//Database PortMyinifile.writestring ('dbconf','Database', Edtdatabase.text);//Database nameMyinifile.writestring ('dbconf','User', Edtuser.text);//Login User NameMyinifile.writestring ('dbconf','Password', Edtpwd.text);//Login PasswordShowMessage ('saved successfully'); finallyMyinifile.free; End;End;

//loading the INI configuration fileprocedureTform1.btnloadclick (sender:tobject);varMyinifile:tinifile; FilePath:string;beginfilepath:= Extractfilepath (application.exename) +'Dbconfig.ini';//get the path to the INI fileMyinifile: = Tinifile.Create(filepath); Trylistbox1.clear; LISTBOX1.ITEMS.ADD ('Server:'+ myinifile.readstring ('dbconf','Server',"'));//Server AddressLISTBOX1.ITEMS.ADD ('Port:'+ myinifile.readstring ('dbconf','Port',"'));//Database PortLISTBOX1.ITEMS.ADD ('Database:'+ myinifile.readstring ('dbconf','Database',"'));//Database nameLISTBOX1.ITEMS.ADD ('User name:'+ myinifile.readstring ('dbconf','User',"'));//Login User NameLISTBOX1.ITEMS.ADD ('Password:'+ myinifile.readstring ('dbconf','Password',"'));//Login Password  finallyMyinifile.free; End;End;

Interface effect

Delphi INI file Save and read