Есть вот такой файл:

wall wall.bmp
-20 20 0 -20 20 -50 20 20 0 20 20 -50 20 20 0 -20 20 -50
-20 0 0 -20 0 -50 20 0 0 20 0 -50 20 0 0 -20 0 -50
kletki kletki.bmp
-20 20 0 -20 20 -50 -20 0 0 -20 0 -50 -20 0 0 -20 20 -50
20 20 0 20 20 -50 20 0 0 20 0 -50 20 0 0 20 20 -50
-20 0 -50 -20 20 -50 20 0 -50 20 20 -50 20 0 -50 -20 20 -50

причём не известно как расставлены файлы BMP и идентификаторы!!!

Ниже следующий код читает только цифры без имён BMP файлов и идентификаторов (т.е. без kletki kletki.bmp )


var
VertexCount: Integer;
Vertex: array of TVector;

// Load world
procedure LoadWorld(Filename: String);
var F: TextFile;
begin
AssignFile(F, Filename);
Reset(F);

while not Eof(F) do
begin
SetLength(Vertex, VertexCount + 1);
Read(F, Vertex[VertexCount].X, Vertex[VertexCount].Y, Vertex[VertexCount].Z);
Inc(VertexCount);
end;

CloseFile(F);
end;
Как ИЗМЕНИТЬ код так что бы идентификаторы и имена BMP'шек так же распихивались по разным массивам Только прошу не извращаться с кодом (т.е. не предлагать делать типизированный файл и прочее... просто в лоб ответить на вопрос!)

Насколько я понял, ты вояеш 3-д гамицу?
А ближе к делу хочеш хранить в массиве набор объектов и их параметров?
Тогда оптимальное решение - это создание своего типа. Это элементарно:

type
TObj=record
VertexX,VertexY,VertexZ:TVector;//координаты объекта
Type:string;//тип объкта (wall и т.д.); только Type напиш как-нить по-другому, а то это зарезервировано
... //другие свойства объекта
end;

var
Obj:array[1..100] of TObj;

procedure LoadWorld(Filename: String);
var
F: TextFile;
i:integer;
begin
AssignFile(F, Filename);
Reset(F);
i:=0;
while not Eof(F) do
inc(i);
begin
Read(F, Obj[i].VertexX, Obj[i].VertexY, Obj[i].VertexZ, Obj[i].Type);
Inc(VertexCount);
end;

CloseFile(F);

begin
LoadWorld;
end.

Насколько я понял, ты вояеш 3-д гамицу?
А ближе к делу хочеш хранить в массиве набор объектов и их параметров?
Тогда оптимальное решение - это создание своего типа. Это элементарно:

type
TObj=record
VertexX,VertexY,VertexZ:TVector;//координаты объекта
Type:string;//тип объкта (wall и т.д.); только Type напиш как-нить по-другому, а то это зарезервировано
... //другие свойства объекта
end;

var
Obj:array[1..100] of TObj;

procedure LoadWorld(Filename: String);
var
F: TextFile;
i:integer;
begin
AssignFile(F, Filename);
Reset(F);
i:=0;
while not Eof(F) do
inc(i);
begin
Read(F, Obj[i].VertexX, Obj[i].VertexY, Obj[i].VertexZ, Obj[i].Type);
Inc(VertexCount);
end;

CloseFile(F);

begin
LoadWorld;
end.