Текущий архив: 2005.09.11;
Скачать: 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 вся ветка
Текущий архив: 2005.09.11;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.014 c
