procedure TForm1.Import(failas : string);var F : TextFile;begin  AssignFile(F,failas);  Reset(F);  vertexCount := 0;  facesCount := 0;  texCoordsCount := 0;  normalsCount := 0;  while not Eof(F) do  begin    Readln(F,buffer[0]);  if buffer[0] = 'v' then   begin    vertexCount := vertexCount + 1;    //Read(F,buffer[0],vertex[vertexCount].x,vertex[vertexCount].y,vertex[vertexCount].z);   end   else if buffer[0] = 'f' then   begin    facesCount := facesCount + 1;    //Read(F, buffer[0], vertices[facesCount].v1, texNormals[facesCount].v1, normals[facesCount].v1,                         //vertices[facesCount].v2, texNormals[facesCount].v2, normals[facesCount].v2,                         //vertices[facesCount].v3, texNormals[facesCount].v3, normals[facesCount].v3);   end   else if buffer[0] = 'n' then   begin    normalsCount := normalsCount + 1;    //Read(F, buffer[0], normals2[normalsCount].x, normals2[normalsCount].y, normals2[normalsCount].z);   end   else if buffer[0] = 't' then   begin   texCoordsCount := texCoordsCount + 1;    //Read(F, buffer[0], texCoords[texCoordsCount].x,texCoords[texCoordsCount].y,texCoords[texCoordsCount].z);   end  end;  memo1.Lines.add('FacesCount = ' + IntToStr(facesCount));  memo1.Lines.add('VertexCount = ' + IntToStr(vertexCount));  memo1.Lines.add('NormalsCount = ' + IntToStr(normalsCount));  CloseFile(F);end;

FacesCount = 2256VertexCount = 1178NormalsCount = 1178

FacesCount = 1128VertexCount = 589NormalsCount = 589

Quote:Original post by Whatz

How is buffer declared? Is it big enough to hold the data you read in?

Buffer = array [0..5000] of string[1]

Quote:Original post by Buckeye
First, I'm not familiar with Delphi. However, it appears that the sequence:

Readln(...);
Read(...);

would read 2 lines from the file. If that's correct, then you Readln a line, then Read another line without increasing the count.

According to the documentation, Readln() moves the read position of the file to the beginning of the next line. So a subsequent Read() is not from the same line you've just counted.

Example:

If the file is something like:

v x0 y0 z0
v x1 y1 z1

Then:
Readln(); // get x0,y0,z0 - count is 1
Readln(); // get x1,y1,z1 - count is 2

However:
Readln(); // get x0,y0,z0 - count is 1
Read(); // get x1,y1,z1 - count is still 1!