# Чтение значений из INI-файлов без использования разделов на Delphi

Delphi , Файловая система , INI файлы

В данном запросе пользователь просит написать статью, основываясь на контексте о чтении значений из INI-файлов без использования разделов. Предоставленный контекст содержит решение проблемы с использованием класса TStringList и примеры кода для чтения и записи данных в файл, который не соответствует стандартному формату INI с разделами.

Чтение значений из INI-файлов без использования разделов на Delphi

Иногда возникает необходимость работы с файлами, которые имеют структуру похожую на INI, но при этом не используют разделы. В таком случае можно использовать класс TStringList, который является более гибким инструментом для обработки данных в текстовом формате.

Пример чтения значения

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do
    try
      LoadFromFile('C:\path\to\your\file.txt');
      ShowMessage(Values['dog']); // dog=значение должно быть в файле
    finally
      Free;
    end;
end;

Загрузка данных во внешнюю функцию

Можно также обернуть операцию чтения данных из файла в отдельную функцию для удобства использования:

function GetPropertyValue(aFile, Key: string): string;
var
  properties: TStringList;
begin
  properties := TStringList.Create;
  try
    properties.LoadFromFile(aFile);
    Result := properties.Values[Key];
  finally
    properties.Free;
  end;
end;

Пример записи значений в файл

Для сохранения данных можно использовать следующий код:

procedure SetPropertyValue(aFile, Key, Value: string);
var
  I: Integer;
  properties: TStringList;
  found: Boolean;
begin
  found := False;
  properties := TStringList.Create;
  try
    properties.LoadFromFile(aFile);
    for I := 0 to properties.Count -1 do
    begin
      if properties.Names[I] = Key then
      begin
        properties[I] := Key + '=' + Value;
        found := True;
        Break;
      end;
    end;
    if not found then
    begin
      properties.Add(Key + '=' + Value);
    end;
  finally
    properties.SaveToFile(aFile);
    properties.Free;
  end;
end;

В данном примере, если пара ключ-значение уже существует в файле, она будет заменена новым значением. Если нет - пара будет добавлена.

Эти примеры демонстрируют основные операции чтения и записи данных без использования разделов INI-файла на языке Object Pascal с использованием компонента TStringList. Это удобный способ работы с простыми текстовыми файлами, содержащими пары ключ-значение.

Создано по материалам из источника по ссылке.

Статья описывает работу с INI-файлами без использования разделов в среде Delphi, используя класс `TStringList` для чтения и записи данных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: INI файлы ::