Сохранение в iniFile-ах

[Altera]

Все привет!
Вот такой сабж:
Уже давно в одной проге настройки сохраняю в iniFile-ах. Проблема в том, что надо сохранять структуры, которые являются элементами массива. Ну в общем получается цикл. Проблема в том, что даже если элементов не очень много, то сохранение длится неприлично долго (500-600 мс при нагруженном компе, при перегруженном и до 1600 мс поднималось, Ну, при Idle до 100 мс.) Мне как-бы не хотелось бы сохранять их напрямую в файл. Да, он бы занял меньше места, но мне-бы хотелось что-бы юзер без заморочек при помощи блокнота мог бы отредактировать настройки. Никак нельзя ускорить сохранение в ini-шки. Проблема ещё в том, что когда система перегружена, то при выключении проги не всё сохраняется.

Сохранение идёт примерно так

procedure{ сохраняем список }saveList;
var
f: tIniFile;
f_way, ts: string;
c1, c2, mh: smallInt;
begin
   f_way := extractFilePath(application.ExeName)+'(some name).ini';

   if fileExists(f_way) then deleteFile(f_way);
   f := tIniFile.Create(f_way);

   mh := high(someArray);
   f.WriteInteger('Count', 'Count', mh);

   if mh >= 0 then
      for c1 := 0 to mh do
      begin
         ts := 'SomeItem'+intToStr(c1);
         f.WriteInteger(ts, 'intValue', someArray[c1].intValue);         
         f.WriteBool(ts, 'boolValue', someArray[c1].boolValue);
         f.WriteString(ts, 'someString', someArray[c1].someString);
         f.WriteFloat(ts, 'floatValue', someArray[c1].floatValue);
         { ещё где-то 25 значений }
      end;
   f.Free;
end;

Ну, загрузка аналогичным путём.
Кстати, загрузка идёт несравненно быстее чем созранение.

Никак нельзя ускорить сохранение?
p.s. ещё почему не хочу писать прямо в поток (или файл), будет нехреновая заморочка со строками....

[russian-stalker]

Думаю это не нужно

   
if fileExists(f_way) then deleteFile(f_way);

Быстрее думаю никак не загрузите

[Neeter]

Используйте TStringList.
Я попробовал сохранить массив из десяти тысяч элементов типа запись с четырмя разными элементами (строка, число и т.д.) способом ini, сохранилось примерно за две минуты. Попробовал с StringList'ом, сохранилось за мгновение.

procedure TForm1.bt_2Click(Sender: TObject);
var
 i: integer;
 st: TStrings;
 ts: string;
begin
 st := TStringList.Create;
 try
  st.Add('[Count]');
  st.Add(Format('Count=%d', [NItems]));
  for i := 0 to NItems - 1 do
  begin
   st.Add(Format('[SomeItem%d]', [i + 1]));
   st.Add(Format('strValue=%s', [Records[i]._v1]));
   st.Add(Format('intValue=%d', [Records[i]._v2]));
   st.Add(Format('pcharValue=%s', [Records[i]._v3]));
   st.Add(Format('boolValue=%d', [Byte(Records[i]._v4)]));
  end;
  st.SaveToFile(ExtractFilePath(ParamStr(0)) + 'filestreammethod.ini');
 finally
  st.Free;
 end;
end;

Чтобы познать разницу, прикрепляю прогу. Только разархивируйте сначала.

[Altera]

Сообщение от Neeter

Используйте TStringList.
Я попробовал сохранить массив из десяти тысяч элементов типа запись с четырмя разными элементами (строка, число и т.д.) способом ini, сохранилось примерно за две минуты. Попробовал с StringList'ом, сохранилось за мгновение.

procedure TForm1.bt_2Click(Sender: TObject);
var
 i: integer;
 st: TStrings;
 ts: string;
begin
 st := TStringList.Create;
 try
  st.Add('[Count]');
  st.Add(Format('Count=%d', [NItems]));
  for i := 0 to NItems - 1 do
  begin
   st.Add(Format('[SomeItem%d]', [i + 1]));
   st.Add(Format('strValue=%s', [Records[i]._v1]));
   st.Add(Format('intValue=%d', [Records[i]._v2]));
   st.Add(Format('pcharValue=%s', [Records[i]._v3]));
   st.Add(Format('boolValue=%d', [Byte(Records[i]._v4)]));
  end;
  st.SaveToFile(ExtractFilePath(ParamStr(0)) + 'filestreammethod.ini');
 finally
  st.Free;
 end;
end;

Чтобы познать разницу, прикрепляю прогу. Только разархивируйте сначала.

Вау, и правда. ППЦ какая разница. Это если ещё учесть, что форматирование (format) тоже функция не из быстрых.
А считывать при помощи ini файлов придётся. Потому что, насколько я помню, tStingList ключи ("[some key]") не умеют читать.

[Alex Cones]

А считывать при помощи ini файлов придётся

Но зачем? Сохраняйте и загружайте с помощью Стринглиста, затем соорудите нечто такое:

strValue:=Copy(List[0],1,10);
intValue:=IntToStr(Copy(List[1],1,10);
...

И сохранять и загружать за мгновение будете.

[Скандербег]

Есть еще TMemIniFile.
Как сказано в справке: MemIniFile, works the same way as TIniFile, but buffers writes in memory to minimize disk access.
Вполне возможно, что в памяти операции чтения данных из ini файла будут происходить быстрее.

--- добавлено ---
Alex Cones, если применять StrinList, то в нем есть свойства Names и Values для доступа к парам <ключ> =<значение>.
Например, SL.names[l] и SL.Values[SL.names[l]]. Но при этом придется в ручную заниматься разборкой секций, пропускать закомментированные и пустые строки и пр., а зачем, если есть TMemIniFile, который с парсингом ini разберется лучше любой ручной работы.

[Altera]

Сообщение от Скандербег

Есть еще TMemIniFile.
Как сказано в справке: MemIniFile, works the same way as TIniFile, but buffers writes in memory to minimize disk access.
Вполне возможно, что в памяти операции чтения данных из ini файла будут происходить быстрее.

Проробую!
Спасибо!