Как сохранить и получить строку из INI-файла

Ниже показаны две функции, которые помещают и получают значение переменной (StringName) в ini-секции (IniSection) ini-файла (TheIniFile)}

function
 IniGetStringValue(
  TheIniFile: string
;
  IniSection: string
;
  StringName: string
;
  DefaultString: string
): string
;
var

  TheIni: TIniFile;
begin

  TheIni := TIniFile.Create(Self);
  try

    Result :=
      TheIni.ReadString(
      IniSection,
      StringName,
      DefaultString);
    if
 Result = '' then

      Result := DefaultString;
  finally

    TheIni.Free;
  end
;
end
;

function
 IniSetStringValue(
  TheIniFile: string
;
  IniSection: string
;
  StringName: string
;
  StringValue: string
): Boolean;
var

  TheIni: TIniFile;
begin

  TheIni := TIniFile.Create(Self);
  try

    try

      TheIni.WriteString(
        IniSection,
        StringName,
        StringValue);
      Result := True
;
    except

      Result := False
;
    end
;
  finally

    TheIni.Free;
  end
;
end
;

Другое по теме:

• Сохранять настройки в ini-файле
• Сохранение потока в INI файле
• Работа с INI-файлами