Ini Dateien benutzen

Erklärung
Zuerst, auch wenn die Inidatei schon vorhanden ist, die Datei initialisieren. Zum Schreiben eines Stringwertes sieht der Aufbau so aus:

TIniFile.WriteString(Sektion:string;Name:string;Wert:string) :boolean;

Bsp.: Schreibt man TIniFile.WriteString('Sektion','Name','Wert'), so wird in der Inidatei eine neue Sektion mit Namen Sektion, eine neuer Name mit Namen Name und und dem dazugehörigen Wert Wert erstellt.
Will man einen Stringwert auslesen, so sieht der Aufbau so aus:

TIniFile.ReadString(Sektion:string;Name:string;Default:string;) :string;

Bsp.: Schreibt man TIniFile.ReadString('Sektion';'Name';'Default'), so liefert diese Funktion den dazugehörigen String von Name. Ist dieser nicht vorhanden liefert er den String der als Default angegeben wurde (In diesem Fall Default)

Quelltext
Wichtig: In die Uses-Klausel INIFILES aufnehmen
  uses IniFiles;

procedure TForm1.BtnSchreibenClick(Sender: TObject);
var Inidat : TIniFile;

begin
     //Inidatei initialisieren (auch wenn Datei schon vorhanden ist)
     Inidat := TIniFile.Create('Settings.ini');
     //In die Sektion Optionen die Werte eintragen
     Inidat.WriteInteger('Optionen','Anzahl der Spieler',strToInt(Edit1.text));
     Inidat.WriteString('Optionen','Homepage',Edit2.text);
     //In die Sektion Farbschemata Wert eintragen
     Inidat.WriteBool('Farbschemata','Andere Schriftfarbe',Checkbox1.checked);
end;

procedure TForm1.BtnEinlesenClick(Sender: TObject);
var Inidat : TIniFile;

begin
     Inidat := TIniFile.Create('Settings.ini');

     //Werte auslesen (Letzter Wert ist immer der Defaultwert)
     Label1.Caption := inttostr(Inidat.ReadInteger('Optionen','Anzahl der Spieler',2));
     Checkbox1.checked := Inidat.ReadBool('Farbschemata','Andere Schriftfarbe',false);
     Label2.Caption := Inidat.ReadString('Optionen','Homepage','www.nichts.de');
end;