Write on an ini file

[lupetto77]

Using Inno Setup Compiler I have added a screen with the various components, I should read the content that is inserted into a textbox and write it in an ini file.

Same thing with the combobox component.

I added the section
Code:
[Ini]
Filename: {app} \ fileProva.ini; Section: prova1; Key: nomeTextBox1
Filename: {app} \ fileProva.ini; Section: Prova2; Key: nomeTextBox2

Is that okay?

Or should I add something else?

[JRD!]

function GetIniBool(const Section, Key: String; const: Boolean; const Filename: String): Boolean;
function GetIniInt(const Section, Key: String; const Default, Min, Max: Longint; const Filename: String): Longint;
function GetIniString(const Section, Key, Default, Filename: String): String;


Example:

var
sCaption: string;
iLeft, iTop, iWidth, iHeight: integer;
bChecked: boolean;

sCaption:=GetIniString('chkb', 'Caption', 'Component 1', ExpandConstant('{src}') + '\YourFile.ini');
iLeft:=GetIniInt('chkb', 'Left', '30', ExpandConstant('{src}') + '\YourFile.ini');
iTop:=GetIniInt('chkb', 'Top', '50', ExpandConstant('{src}') + '\YourFile.ini');
iWidth:=GetIniInt('chkb', 'Width', '150', ExpandConstant('{src}') + '\YourFile.ini');
iHeight:=GetIniInt('chkb', 'Height', '20', ExpandConstant('{src}') + '\YourFile.ini');
bChecked=GetIniBool('chkb', 'Checked', 'true', ExpandConstant('{src}') + '\YourFile.ini');

CheckBox1.Caption:=sCaption;
CheckBox1.SetBounds(iLeft, iTop, iWidth, iHeight);
CheckBox1.Checked:=bChecked;

[JRD!]

function SetIniBool(const Section, Key: String; const Value: Boolean; const Filename: String): Boolean;
function SetIniInt(const Section, Key: String; const Value: Longint; const Filename: String): Boolean;
function SetIniString(const Section, Key, Value, Filename: String): Boolean;


[Setup]
AppName='Write to ini example';
AppVerName=0.0.0.0
CreateAppDir=false
OutputDir=".\"

[ Code ]
const
INIFILE = 'config.ini';

procedure OnChange(Sender: TObject);
begin
SetIniString(TControl(Sender).Name, 'Text', TEdit(Sender).Text, ExpandConstant('{src}\') + INIFILE);
end;

procedure OnClick(Sender: TObject);
begin
SetIniBool(TControl(Sender).Name, 'State', (Sender as TCheckBox).Checked, ExpandConstant('{src}\') + INIFILE);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False
Cancel:=True
end;

procedure InitializeWizard();
begin

with WizardForm do
begin
BorderStyle := bsToolWindow;
Position := poScreenCenter;
AutoScroll := False;
ClientWidth := ScaleX(300);
ClientHeight := ScaleY(100);
Caption:={#SetupSetting("AppName")};
InnerNotebook.Hide;
OuterNotebook.Hide;
end;

with TLabel.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(5, 8, 40, 15);
Caption:='Edit1: ';
Font.Size:=10;
end;

with TEdit.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(50, 5, WizardForm.ClientWidth - 60, 15);
OnChange:=@OnChange;
Name:='Edit1';
end;

with TLabel.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(5, 33, 40, 15);
Caption:='Edit2: ';
Font.Size:=10;
end;

with TEdit.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(50, 30, WizardForm.ClientWidth - 60, 15);
OnChange:=@OnChange;
Name:='Edit2';
end;

with TCheckBox.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(50, 70, 150, 15);
OnClick:=@OnClick;
Name:='CheckBox1';
Checked:=GetIniBool(Name, 'State', false, ExpandConstant('{src}\') + INIFILE);
end;

with TCheckBox.Create(WizardForm) do
begin
Parent := WizardForm;
SetBounds(150, 70, 150, 15);
OnClick:=@OnClick;
Name:='CheckBox2';
Checked:=GetIniBool(Name, 'State', false, ExpandConstant('{src}\') + INIFILE);
end;

end;

[lupetto77]

Sorry for the response delay.

Thanks for the help, I will try to figure out how it works.