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

with TFIniFile.Create('test.ini') do begin
  if SectionExists('testSect') then begin 
    EnterSection; // 'testSect' wurde beim letzten Zugriff gefunden und muss nicht mehr angegeben werden
    if ValueExists('testValue') then WriteLn('testValue: ' + ReadString) // siehe oben
    else WriteLn('Konnte Eigenschaft nicht auslesen');
  end else WriteLn('Konnte Sektion nicht finden');
  Free;
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:

TMemIniFile vs. TFIniFile Speedtest
===================================

Ergebnisse:

  TMemIniFile
    Create & Free
      Große Datei: 7,328 ms
      Mittlere Datei: 2,235 ms
      Kleine Datei: 0,203 ms
    Datei auslesen (Mit Prüfung)
      Große Datei: 339,187 ms
      Mittlere Datei: 63,312 ms
      Kleine Datei: 0,797 ms
  
  TFIniFile
    Create & Free
      Große Datei: 10,766 ms
      Mittlere Datei: 3,093 ms
      Kleine Datei: 0,235 ms
    Datei auslesen (Mit Prüfung)
      Große Datei: 3,75 ms
      Mittlere Datei: 0,922 ms
      Kleine Datei: 0,16 ms

Große Datei = 100 Sektionen a 50 Eigenschaften
Mittlere Datei = 50 Sektionen a 30 Eigenschaften
Kleine Datei = 5 Sektionen a 10 Eigenschaften

Alle Tests wurden der Genauigkeit halber 1000 mal durchgeführt.                    

1:
2:

Float1=123.456 #Float mit .
Float2=123,456 #Float mit ,                    

1:

C:\Нас Не Дагонят\test.ini                    

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

type
  TFIniFile = class 
    private
      //...
    public
      constructor Create(const Stream: TStream); overload; //Der Parser selbst, neue Version
      constructor Create(const FileName: String); overload; //Die überladene Version, die einen Dateinamen übernimmt und ihn als FileStream an den ersten Konstruktor weitergibt
      //...
  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:

with TFIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/lang/lang_new.ini') do
  begin


    for i := 1 to Frm.ComponentCount - 1 do
    begin

      compo := Frm.Components[i];

      {entersection('Test');
      writestring('test', 'test');}

      if (compo is TLabel) then
      begin
        Entersection('TLabel');
        WriteString((compo as TLabel).Name, (compo as TLabel).Caption);
      end;

    if (compo is TBitBtn) then
    begin
      Entersection('TBitBtn');
      WriteString((compo as TBitBtn).Name, (compo as TBitBtn).caption);
    end;

    end;

    Free;

  end;                    

1:
2:
3:
4:
5:

for i := 0 to 255 do 
  if SectionExists('MySection' + IntToStr(i)) then begin
    EnterSection;
    ListValues(MySectionValues[i]);
  end;                    

1:
2:
3:

for i := 0 to 255 do
  if SectionExists('MySection' + IntToStr(i)) then
    ListValues('MySection' + IntToStr(i), MySectionValues[i]);                    

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

[items]
count=3
0.id=57a3e1425
0.name=myitem1
0.pos.left=20
0.pos.top=15
1.id=f9f2315ab
1.name=myitem2
1.pos.left=35
1.pos.top=10
2.id=a163c057d
2.name=myitem3
2.pos.left=85
2.pos.top=110                    

1:

mov al, Chr             // Chr suchen                    

1:

MOV AL, BYTE PTR [Chr]                    

1:

Frm.Com_Gamesettings_Vegetation_Quality.ItemIndex := ini_useroptions.ReadInteger('VegetationQuality');                    

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

// Texture Quality
ini_useroptions.WriteInteger('TextureQuality', Frm.Com_Gamesettings_Textures_Quality.ItemIndex + 1);   

// Shadow Quality
ini_useroptions.WriteInteger('ShadowQuality', Frm.Com_Gamesettings_Shadow_Quality.ItemIndex);

// Vegetation Quality
ini_useroptions.WriteInteger('VegetationQuality', Frm.Com_Gamesettings_Vegetation_Quality.ItemIndex);                    

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

ini_useroptions.WriteString('Resolution.Width', Frm.Edi_Gamesettings_General_ResolutionWidth.Text);

ini_useroptions.WriteString('Resolution.Height', Frm.Edi_Gamesettings_General_ResolutionHeight.Text);

ini_useroptions.WriteString('Resolution.RefreshRate', Frm.Edi_Gamesettings_General_ResolutionRate.Text);

ini_useroptions.WriteInteger('Speaker', Frm.Com_Gamesettings_General_Sound.ItemIndex + 1);

// Texture Shader
ini_useroptions.WriteString('ShaderQuality', Frm.Com_Gamesettings_Textures_Shader.Text);

// Texture Filtering
ini_useroptions.WriteInteger('TextureFilter', Frm.Com_Gamesettings_Textures_Filtering.ItemIndex);