Скачать: CL | DM;

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;

---

← →
GanibalLector ©   (2005-08-17 18:49) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c