Delphi i pliki obj

oto poprawny string

f 615615 616616 16711671 16741674

a oto zly string
f 11911577 12221579 11921579

teraz jak to rozdzielic do postaci dobrego string'a, albo nech ktos mi napsize nowy loader do obslugi tego co eksportuje tepy milkshape czyli

f 11911577 12221579 11921579 ale zamiast '//' jest '/' :[

cholera mnie juz wziela

a oto skarwek kodu ktory czyta dobry string

{------------------------------------------------------------------}
{ Reads the faces/triangles info for the model }
{ Data is stored as "f f f" OR "f/t f/t /ft" OR "f/t/n .. f/t/n" }
/// jezeli kruwa tu wyzej psize co innego ze odczytuje te gowno to why to nie dziala ? :[[[[[[[[[[[[[
{------------------------------------------------------------------}
procedure ReadFaceData(S : String; var M : TModel);
var P, P2, P3 : Integer;
F : TFace;
begin
P :=Pos(' ', S);
S :=Trim(Copy(S, P+1, length(S)));

Inc(M.Group[M.Groups].Faces);
SetLength(M.Group[M.Groups].Face, M.Group[M.Groups].Faces+1);

F.Count :=0;
While Length(S) > 0 do
begin
P :=Pos('/', S); // check for position of first /
P3 :=Pos(' ', S);
if P3 = 0 then // if we reach the end
P3 :=Length(S)+1;

if P > 0 then              // there are normals or texture coords
begin
  Inc(F.Count);
  SetLength(F.vIndex, F.Count);
  F.vIndex[F.Count-1] :=StrToInt(Copy(S, 1, P-1));
  P2 :=PosEx('/', S, P+1);   // check for position of second /
  if P2 > P+1 then          // there are normals AND texture coords
  begin
    SetLength(F.tIndex, F.Count);
    SetLength(F.nIndex, F.Count);
    F.tIndex[F.Count-1] :=StrToInt(Copy(S, P+1, P2-1));
    F.nIndex[F.Count-1] :=StrToInt(Copy(S, P2+1, P3-1));
  end
  else
  begin
    SetLength(F.nIndex, F.Count);
    F.nIndex[F.Count-1] :=StrToInt(Copy(S, P2+1, P3-1 - P2));
  end;
end
else
begin
  Inc(F.Count);
  SetLength(F.vIndex, F.Count);
  F.vIndex[F.Count-1] :=StrToInt(Copy(S, 1, P3-1));
end;
S :=Copy(S, P3+1, length(S));

end;

M.Group[M.Groups].Face[M.Group[M.Groups].Faces] :=F;
end;

juz sobie oradzilem nie odpisywac i mozna skasowac post :]