Delphi World - Как сохранить и получить строку из INI-файла
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как сохранить и получить строку из 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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования