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

[Fensterposition]
Left=50
Top=38

[Vorbelegung]
LetzteBenutzung=20.02.2002                    

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

Uses IniFiles;

procedure TForm1.Button1Click(Sender: TObject);
var 
  ini: TIniFile;
begin
  ini:=TIniFile.Create('einstellungen.ini');
  try
    ini.WriteInteger('Fensterposition','Left','12');
    ini.WriteInteger('Fensterposition','Top','26');
  finally
    ini.free;
  end;
end;                    

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

Uses IniFiles;

procedure TForm1.Button2Click(Sender: TObject);
var 
  ini: TIniFile;
begin
  ini:=TIniFile.Create('einstellungen.ini');
  try
    ini.ReadInteger('Fensterposition','Left',0);
    ini.ReadInteger('Fensterposition','Top',0);
  finally
    ini.free;
  end;
end;                    

1:

ini.WriteInteger('Fensterposition','Top','26');                    

1:
2:
3:

[Fensterposition]
Left=12
Top=26                    

1:

ini.ReadInteger('Fensterposition','Top',0);                    

1:

if ini.SectionExists('Fensterpesition') then ...                    

1:

ini.ReadSextions(ListBox1.Items);                    

1:

ini.ReadSectionValues('Abschnitt1', ListBox2.Items);