Если до сихпор ненашол решения то вот держи код на делфи
Code
procedure TScene.LoadFromFile(const FileName: String);
var
f : TextFile;
i:integer;
S : String;
begin
// открыть файла
AssignFile(F, FileName);
// Переоткрытие фала для чтения
Reset(f);
ReadLn(f, S);//пропускае строчку "Камаз"
ReadLn(f, Class); //Считываем Class автомобиля
ReadLn(f, S); //пропускае строчку "Пути к моделям"
for i := 0 to 1 do
begin
ReadLn(f, Names[i]); // Считываем имена моделей для загрузки
end;
// Закрытие фала
CloseFile(f);
end;
А это содержание файла который считываем
Code
Камаз
Car16 // Класс автомобиля
Пути к моделям
data\Models\Pricep.3DS
data\Models\Kamaz.3DS
data\Models\Wheels.3DS