Ini.WriteSection

← →
GanibalLector © (2005-08-17 18:38) [0]

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

← →
GanibalLector © (2005-08-17 18:38) [1]

Хотелось бы так :
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;

← →
KilkennyCat © (2005-08-17 18:45) [2]

WriteString в цикле.

← →
TUser © (2005-08-17 18:49) [3]

??

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;

Ini.WriteSection Найти похожие ветки