загружай по несколько блоков, насколько я знаю многие форматы моделей хранят сначало сигнатуры, потом инфо о моделе и далее блоки с вертексами, читай по определённому количеству этих блоков, после чего освобождай и начинай по новой, памать будет меньше использовать
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|