Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
Ach ich nehm die 10min erstmal so hin... Mir bleibt ja auch nichts anderes überig wenn ich nicht umbauen will :)
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
Gibt es denn ne Möglichkeit den aktuellen Windows Cache zu speichern und bei jedem Neustart wiederherzustellen ;)
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
40.000 Dateien, der Durchschnitt liegt bei 3-4 kb pro Datei.
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
So ich habe es nochmal genauer ausgearbeitet und gemessen:
Ohne Cache: 9:22 min
Mit Cache: 0:01 min
Und hier noch der benutzte Source Code:
procedure TForm1.Button1Click(Sender: TObject);
var
StartTime, EndTime: TDateTime;
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
Versteh nicht was du mir damit sagen willst ?!
Also hier nochmal der Code in vereinfachter Form:
var
XMLSource, IDList: TStringList;
FoundCount: Integer;
begin
XMLSource:=TStringList.Create;
IDList:=TStringList.Create;
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
Oops, ja hab ich natürlich vergessen zu erwähnen. Der Code sieht in etwa so aus:
XMLSource:=TStringList.Create;
try
for i:=0 to IDList.Count-1 do
begin
FilePath:=ExtractFilePath(ParamStr(0))+IDList.Strings+'.xml';
XMLSource.LoadFromFile(FilePath);
//Hier verarbeite ich den Source
Forum: Win32/Win64 API (native code)
by -187-,
27. Okt 2010
Hm Okay das ist ja jetzt blöd wenn das jedesmal 20 Minuten dauert.
Hat jemand ne schnellere Lösung 40.000 Dateien zu durchsuchen als diese:
for i:=0 to MyFiles.Count-1 do
begin
if Pos('MyString',MyFiles.Strings)>0 then do
do something...
end;