Liste mit Funktionen erstellen abarbeiten...

[user0815]

oder mit dem default Wert arbeiten...

Delphi-Quellcode:

uses
  IniFiles;

function IniLesen(filename, section, value, default : String) : String;
var
  Ini : TIniFile;
begin
  try
    Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + filename + '.INI');
    Result := Ini.ReadString(section, value, default);
  finally
    FreeAndNil(Ini);
  end;
end;
//---------------------------------------------------------------------------
procedure IniSchreiben(filename, section, item, value : String);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + filename + '.INI');
  try
    Ini.WriteString(section, item, value);
  finally
    FreeAndNil(Ini);
  end;
end;
//---------------------------------------------------------------------------
procedure TFormMain.Button1Click(Sender: TObject);
begin
  Button1.Caption := IniLesen('Dateiname', 'Sektion', 'Wert', 'Parameter fehlt');
  IniSchreiben('Dateiname', 'Sektion', 'Wert', 'OK');
end;
//---------------------------------------------------------------------------