var
L: TIniStringList;
begin
L := TIniStringList.Create;
L.LoadFromIni('MyFile.Ini', 'Alati'); {Загружаем L..}
L.Free;
end.
Текст на русском языке:
Код Delphi! Это код, который определяет пользовательский класс TIniStringList, наследуясь от TStringList. Цель этого класса - загружать и сохранять список строк в файле INI с помощью компонента TIniFile.
Класс TIniStringlist определяется с двумя процедурами: LoadFromIni и SaveToIni, которые будут загружать и сохранять список строк в файле INI.
Имплементация
implementationusesIniFiles,SysUtils;procedureTIniStringList.LoadFromIni(constFileName,Section:string);varindex:Integer;Line:string;beginwithTIniFile.Create(FileName)dotryReadSectionValues(Section,Self);forindex:=0toCount-1dobegin{ Удалить символ тильды (~) и присвоить его обратно списку строк }Line:=Values[IntToStr(index)];System.Delete(Line,1,1);Strings[index]:=Line;end;finallyFree;end;end;procedureTIniStringList.SaveToIni(constFileName,Section:string);varindex:Integer;Line:string;beginwithTIniFile.Create(FileName)dotryEraseSection(Section);forindex:=0toCount-1dobegin{ Сохранить строку с префиксом тильды (~) }Line:='~'+Strings[index];WriteString(Section,IntToStr(index),Line);end;finallyFree;end;end;
Процедура LoadFromIni загружает список строк из файла INI, читая значения секции и присваивая их свойству Strings. Она также удаляет любые символы тильды (~), которые могут быть содержаться в оригинальном файле INI.
Процедура SaveToIni сохраняет список строк в файле INI, записывая каждую строку с префиксом тильды (~), за которым следует индекс строки.
Пример использования
varL:TIniStringList;beginL:=TIniStringList.Create;L.LoadFromIni('MyFile. Ini','Alati');{ Загрузить из файла INI }L.Free;end.
В этом примере создается объект TIniStringList, загружается из файла INI с именем MyFile. Ini и секцией Alati. После загрузки объект освобождается.
В целом, этот код предоставляет простой способ загружать и сохранять списки строк в файлах INI с помощью компонента TIniFile.
В статье рассматривается использование класса TStringList в файле ini, представленное через создание класса TIniStringlist, который позволяет загружать и сохранять данные из файла ini.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.