Ich habe jetzt mal die Geschwindigkeit von TMemIniFile beim Schreiben überprüft.
Nicht wirklich! Du prüfst die Geschwindigkeit deiner Code-Sequenz, die im Wesentlichen wohl durch die 1000 Aufrufe von RandomPassword und das Anlegen der internen Struktur für TMemInifile beeinflusst wird wird, mit einer Messmethode, die auf ca. 1/18 Sekunde genau auflöst. Du kannst das gerne mal ausprobieren, in dem du die das UpdateFile weglässt und den Rest mal mit und ohne vorhandener INI-Datei vergleichst. Die Werte werden sicher ähnlich sein.
Das reine UpdateFile (1000 Sections mit je einem Eintrag -> ca. 30KB) dauert auf meinem System ca. 6,8 ms(!) - egal, ob die Datei vorher existiert oder nicht. Mit meinem Vorschlag erhöht sich das auf ca. 7.3 ms. Erhöht man die Zahl der Sections auf 10000 (ca. 300KB) bekomme ich Zeiten von 7.4 und 7.8 ms, wobei man hier mit umgebungsbedingten Toleranzen von +/- 0.5 ms rechnen muss.
Delphi-Quellcode:
program Project53;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
System.Diagnostics,
System.IniFiles,
System.IOUtils;
const
cFileName = '
C:\TEMP\MyIni.ini';
cLineCount = 1000;
type
TMyInifile =
class(TMemIniFile)
private
FBackupName:
string;
public
constructor Create(
const AFileName:
string);
procedure UpdateFile;
override;
property BackupName:
string read FBackupName;
end;
constructor TMyInifile.Create(
const AFileName:
string);
begin
FBackupName := TPath.ChangeExtension(AFileName, '
.bak');
if TFile.Exists(BackupName)
then begin
{ eventuell noch weitere Überprüfungen }
if TFile.Exists(AFileName)
then begin
TFile.Delete(BackupName);
end
else begin
TFile.Move(BackupName, AFileName);
end;
end;
inherited;
end;
procedure TMyInifile.UpdateFile;
begin
if TFile.Exists(FileName)
then begin
if TFile.Exists(BackupName)
then begin
TFile.Delete(BackupName);
end;
TFile.Move(FileName, BackupName);
end;
inherited;
end;
type
TMemIniFileHelper =
class helper
for TMemIniFile
public
procedure Test;
end;
procedure TMemIniFileHelper.Test;
var
deltaTime: Int64;
i: Integer;
ini: TMemIniFile;
sw: TStopWatch;
N: Integer;
S:
string;
begin
for I := 0
to cLineCount - 1
do begin
S := IntToStr(i);
WriteString('
Section' + S, '
Ident' + S, S);
end;
sw := TStopWatch.StartNew;
for N := 1
to 100
do begin
UpdateFile;
end;
sw.Stop;
Writeln('
Runtime [', ClassName, '
]: ', sw.ElapsedMilliseconds/100:1:3, '
ms');
end;
procedure Main;
var
ini: TMemIniFile;
begin
ini := TMemIniFile.Create(cFileName);
try
ini.Test;
finally
ini.Free;
end;
ini := TMyIniFile.Create(cFileName);
try
ini.Test;
finally
ini.Free;
end;
end;
begin
try
Main;
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
Readln;
end.