Readsection

[Garby]

Hallo,

so dürfte es funktionieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Ini: TIniFile;
    Sektion: TStrings;
    Wert: String;
begin
  Sektion := TStringList.Create;
  try
    try
      Ini := TIniFile.Create('C:\Test.ini');
    except
      on E:Exception do begin
        E.Message := 'Fehler beim Öffnen der Datei.';
        raise;
      end;
    end;

    Ini.ReadSectionValues('Irgendwas', Sektion);
    Wert := Sektion.Values['jenes'];
    ShowMessage(Wert);
  finally
    Sektion.Free;
    Ini.Free;
  end;
end;