sag mal, hattest du zufällig bei deinem Geschwindigkeitstest diese Zeile bemerkt?
Const TempSize = {64 * 1024}128; // 64 KB
hatte zum Testen, ob der richtig einliest, die Größe verringert und wohl vergessen es wieder rauszunehmen
so wäre es richtig:
Delphi-Quellcode:
// Zeile 28+29
Const TempSize = 64 * 1024; // 64 KB
FileIndexBlock = 1024 * 1024 div SizeOf(TLineIndex); // 1 MB