Вариант 1. Раскидавать в памяти, а потом выгружать в файлы только там, где данные есть.
Вариант 2. Получать список файлов и читать их длинну. GetFileSize тебе поможет. Одна проблема - надо открывать файл через API-шную функцию, хотя можно его динну получить и из TSearchRec.
|