E' annoni che non leggo più file binari o testo non formattati e che faccio ricerche sugli stessi, ma mi pare di ricordare che puoi fare un "seek" per andare a leggere direttamente la porzione che ti serve (ad esempio se sai che quello che cerchi si trova oltre l'80% del file, fai un "seek" corrispondente e leggi da li).
Tieni presente comunque una cosa: ormai con i sistemi e le tecnologie attuali di archiviazione (SSD, CACHE WB, etc ...) la lettura di un file di non grosse dimensioni è quasi più veloce che non "spolverare" la RAM.
Ciao
Edit: la funzione dovrebbe essere tipo
procedure Seek(var F: File; N: Cardinal);
//Use Seek to move to a specified position in open typed or untyped files. The current file position of F moves to component number N, where the number of the first component of a file is 0.
Edit2:
Potresti anche caricare il file in una stringa ed usare la funzione ReverseString poi da li usare un POS (ovviamente a caratteri invertiti).
function ReverseString(const AText: string): string;
"ReverseString returns the string with the characters in reverse order"
oppure se le righe del file sono in qualche modo identificabili potresti caricarti sempre in una strina il file stesso, eseguire lo SPLITString e poi fare la scansione all'incontrario dell'elenco.
Se non fa per te, puoi controllare i getFileContent
Function GetFileContents(Const aFileName : RawByteString) : TBytes;
Var
H : Thandle;
begin
H:=FileOpen(aFileName,fmOpenRead or fmShareDenyWrite);
if H<0 then
Raise EFileNotFoundException.Create(SFileNotFound);
try
Result:=GetFileContents(H);
finally
FileClose(H);
end;
end;
dentro FileUtil.inc trovi questa implementazione.
Stilgar