| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ini.WriteSection [D5, D7]

GanibalLector ©   (2005-08-17 18:38:00) 

Посмотрел я на  модули inifiles и registry.
Так вот,у них есть замечательный метод ReadSection. Т.е. я задаю имя секции,а мне в ответ Strings: TStrings.
А вот для ЗАПИСИ,насколько я понял,такого метода нет.Скажите,может есть готовые классы или еще чего дабы не изобретать велосипед???

---

TUser   (2005-08-17 18:49:00) [1]

??

TCoolIni = class(TIniFile)
public
procedure WriteSection (Name: string; List: TStrings)
end;

procedure ...
var i: integer;
   j: integer;
begin
 for i:=0 to List.Count-1 do
   WriteString(Name,Trim(copy(List[i],1,pos(NameValueSeparator,List[i])-1)),List.ValueFromIndex[i])

end;

---

GanibalLector   (2005-08-17 18:49:00) [2]

2 KilkennyCat ©   (17.08.05 18:45) [2]
Ну,ладно...сделаю.
Думал,что-нибудь готовое есть ;)

---

KilkennyCat   (2005-08-17 18:45:00) [3]

WriteString в цикле.

---

GanibalLector   (2005-08-17 18:38:00) [4]

Хотелось бы так :

var Ini:TIniFile;
     List:TStringList;
     I:Integer;
begin
 Ini:=TIniFile.Create('D:\hochetsa.ini');
 try
   List:=TStringList.Create;
   for i:=1 to 50 do
   List.Add(IntToStr(i)+#9+'GanibalLector'+IntToStr(i));

    Ini.WriteSection('LOL1',List);

   List:=TStringList.Create;
   for i:=50 to 100 do
   List.Add(IntToStr(i)+#9+'GanibalLector'+IntToStr(i));

    Ini.WriteSection('LOL2',List);
   Ini.UpdateFile;
 finally
   Ini.Free;
 end;
end;


---

Наверх