Vielleicht etwas umständlich, aber es geht.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
MyIni: TIniFile;
i: Integer;
OptionNames: TStringList;
OptionValues: array of string; // Enthält die Werte
begin
// Ini lesen
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'options.ini');
try
OptionNames := TStringList.Create;
try
// alle Einträge (Namen) unter [option] einlesen und in StringList speichern
MyIni.ReadSection('option', OptionNames);
// Werte auslesen und dem Array hinzufügen
SetLength(OptionValues, OptionNames.Count);
for i := 0 to OptionNames.Count - 1 do
begin
OptionValues[i] := MyIni.ReadString('option', OptionNames[i], '');
end;
finally
FreeAndNil(OptionNames);
end;
finally
FreeAndNil(MyIni);
end;
// Sodele, hier sind nun alle Werte im Array
// Testausgabe:
for i := Low(OptionValues) to High(OptionValues) do
begin
ShowMessage(OptionValues[i]);
end;
end;
Edit: Du kannst allerdings nicht mehr zuordnen, unter welchem Namen welcher Wert stand. OptionValues[0] enthält beispielsweise den ersten Wert in dem Abschnitt [option].