1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

try 
  ini:=TIniFile.Create('c:\meineini.ini'); 
     // INI erstellen und falls vorhanden initialisieren 
  ini.WriteString('Sektion1','Eigenschaft1','Dein String'); 
     // String in Sektion1 unter Eigenschaft1 abspeichern 
  ini.WriteInteger('Sektion2','Eigenschaft2',1234); 
     // Intergerwert (1234) in Sektion2 unter eigenschaft2 abspeichern 
finally 
  ini.Free; 
     // Variable ini wieder freigeben                    

1:

ini.writeinteger('Sektion','Eigenschaft',form1.color);                    

1:

form1.color:=ini.readinteger('Sektion','Eigenschaft',STANDARDFARBE);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(...);
  try
    ...
  finally
    Ini.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Ini: TIniFile;
begin
  Ini := nil;
  try
    Ini := TIniFile.Create(...);
    ...
  finally
    Ini.Free;
  end;
end;                    

1:
2:
3:

Edit1.Text:=ini.ReadString('bla', 'bla', 'bla');

Listbox: ListBox1.Items.Add(ini.ReadString('bla', 'bla', 'bla'));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  IniFile : TIniFile;
begin
  try
    IniFile := TIniFile.Create(DateiName);

    ...;
    ...;    
  finally
    FreeAndNil(IniFile);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
   IniFile := TIniFile.Create('c:\Test.ini')

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  ini:Tinifile;
  schreiben,lesen:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
If CheckBox1.Checked = true  then schreiben := 1 ;
If CheckBox1.Checked = false then schreiben := 0 ;

ini := TIniFile.Create('c:\test.ini');
     // INI erstellen und falls vorhanden initialisieren
try
ini.WriteInteger('Autosave','Eigenschaft',schreiben);
     // Intergerwert (1234) in Sektion2 unter Eigenschaft2 abspeichern
finally
  ini.Free;
     // Variable ini wieder freigeben
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ini := TIniFile.Create('c:\test.ini');
try
lesen := ini.ReadInteger('Autosave','Eigenschaft',);

If lesen: = 1 then CheckBox1.Checked = true ;
If lesen:=0 then CheckBox1.Checked = false;
finally
  ini.Free;

end;
end;

end.                    

1:
2:

If lesen: = 1 then CheckBox1.Checked = true ; 
If lesen:=0 then CheckBox1.Checked = false;                    

1:
2:

If lesen= 1 then CheckBox1.Checked := true ; 
If lesen=0 then CheckBox1.Checked := false;                    

1:

lesen := ini.ReadInteger('Autosave','Eigenschaft',);                    

1:

CheckBox1.Checked := ini.ReadInteger ('Autosave', 'Eigenschaft',0) = 1;                    

1:

CheckBox1.Checked := ini.ReadBool ('Autosave', 'Eigenschaft', True);                    

1:

lesen:= ini.ReadInteger('Autosave','Eigenschaft',0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

[Setup]
Counter=4
[Handel1]
Omni=11111
Droiden1=Nomic
Droiden_Anzahl1=30
Ressourcen1=Titan
Ressourcen_Menge1=16500
Droiden2=Zengal
Droiden_Anzahl2=5
Ressourcen2=Sel
Ressourcen_Menge2=15
[Handel2]
Omni=22222
Droiden1=Solaron
Droiden_Anzahl1=5
Ressourcen1=Sel
Ressourcen_Menge1=50
[Handel3]
Omni=33333
Droiden1=Trior
Droiden_Anzahl1=30
Ressourcen1=Titan
Ressourcen_Menge1=10000
Ressourcen2=Öl
Ressourcen_Menge2=5000                    

1:
2:

                    Omni          Droiden          Ressourcen
Nr.                    

1:
2:
3:

                    Omni          Droiden          Ressourcen
Nr. 1             11111        30 Nomic         16500 Titan
                                5 Zengal         15 Sel                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var ini : TInifile;
    sOmni, sDroiden1, sDroiden_Anzahl1, sRessourcen1, sRessourcen_Menge1, sDroiden2, sDroiden_Anzahl2, sRessourcen2, sRessourcen_Menge2 : string;
i, imax : integer;
allehandels : TStringlist;
begin
  try
    ini:=TInifile.create('C:\meine_ini.ini');
    allehandels:=TStringlist.create;
    ini.readsections(allehandels);
    imax:=allehandels.count;
    memo1.lines.add('                  Omni             Droiden      Resourcen');
    for i:=1 to imax do    //i:=1 da i:=0 'Setup' wäre...
    begin
      sOmni:=ini.readstring(allehandels[i],'Omni','');
      sDroiden1:=ini.readstring(allehandels[i],Droiden1,'');
      sDroiden_Anzahl1:=ini.readstring(allehandels[i],Droiden_Anzahl1,'');
      ...
      memo1.lines.add('Nr.'+IntToStr(i)+'     '+sOmni+'        '+sDroiden_Anzahl1+'  '+Droiden1+.....
      memo1.lines.add('                                          '+sDroiden_Anzahl2+'   '+Droiden2+....
    end;
  finally
    ini.free;
    allehandels.free
  end;
...
end;

//absichtlich etwas ausführlicher