Ini Write, zu rechenintensiv?!?

[Hallo_Thomas]

Hallo ich erstelle eine Ini die ungefähr so aussieht:

Delphi-Quellcode:

procedure TiniEinstell.WriteOption;
var ini: TIniFile;
    i,y:Integer;
    iString:WideString;
    Felder:Array [1..15]of WideString;
begin
  Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'Einstellungen\data.ini');
  ini.UpdateFile;
  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.Free;
end;

Damit is mei Rechner erst mah kurz voll ausgelastet,{Insgesamt 45xBool,200xInteger,160xFloat}den Spass in ne Ini zu schreiben.Gibt es da schnellere verfahren, bzw. Irgendwas, um die Sache zu beschleunigen?

[Hawkeye219]

Hallo,

TMemIniFile ist deutlich schneller, die Bremse dürften aber die FindComponent-Aufrufe sein.
Dazu hast Du aber an anderer Stelle bereits mehrere Hinweise erhalten...

Gruß Hawkeye

[Hallo_Thomas]

Ok, Danke.Da werd ich mir das mah zur gemühte ziehen.

[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

[Hallo_Thomas]

Jo, die TMemIniFile macht echt was aus!

Danke!!!!!!!!!!!!!!!
Das Ging ja schnell und ohne viel aufwand, danke!!!!!!!!!!!!!!


Noch mah ein kleiner Nachruf, hab gerad noch mah FindComponent ersetzt durch ne Array, der unterschied bei 200 Werten ist nicht zu bemerken bei der Cpu-Auslastung.TMemIniFile hilft echt weiter.


Noch mah eine Frage, gibt es eine Schnellere Methode als TMemIniFile(eine Methode die Sache zu beschleunigen?