Ini Write, zu rechenintensiv?!?

[marabu]

Hallo Thomas,

probiere es mal so:

Delphi-Quellcode:

procedure TiniEinstell.WriteOption;
var 
  ini: TMemIniFile;
  i,y: Integer;
  iString: WideString;
  Felder: Array [1..15]of WideString;
begin
  Ini := TMemIniFile.Create(ExtractFilePath(application.Exename)+'Einstellungen\data.ini');
  for i := 1 to 45 do
  begin
    iString := IntToStr(i);
    Ini.WriteBool(
      'Aktivierung', 
      'Checkbox'+iString, 
      (Form2.FindComponent('Checkbox' + iString) as TCheckbox).Checked
    ); //45
  end;
  Ini.WriteInteger('Rot', 'blau', Form2.Rot.Value);
  // Insgesamt 45xBool,200xInteger,160xFloat
  // Soll noch grösser werden
  // ..
  ini.UpdateFile;
  Ini.Free;
end;

Grüße vom marabu