Ich verwende bisher folgende Funktion:
Delphi-Quellcode:
function GetStartBlockFromTextFile(const F: string; const X: Integer): string;
// holt die ersten X Zeichen aus der Text-Datei F
var
SR : TStreamReader;
Buffer: TCharArray;
begin
SR := TStreamReader.Create(F);
try
SetLength(Buffer, X);
SR.ReadBlock(Buffer, 0, Length(Buffer));
Result := string(Buffer);
finally
SR.Free;
end;
end;
Das ist zwar schon recht schnell, weil von einer SSD gelesen wird, aber ich frage mich, ob das auch von einer normalen Festplatte schnell genug für meinen Zweck ist, da die Funktion mehrmals hintereinander aufgerufen wird.