1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

type
  TVertex=record
   x,y,z:Glfloat;
  end;
  TTexCoord=record
   U,V:Glfloat;
  end;
  TNormal=TVertex;
  TAll=record
    vertex:^TVertex;
    Tex:^TTexCoord;
    Nor:^TNormal;
  end;
  TFace=record
    nV:Integer;
    V:array of TAll;
  end;

  TOBJFile=object
    verts:array of TVertex;
    norms:array of TNormal;
    texcoords:array of TTexCoord;
    face:array of TFace;
    nv:Integer;
    nt:Integer;
    nN:Integer;
    nf:Integer;
    procedure Load(Filename:String);
    procedure draw(Mode:Cardinal;Light,Texco:Boolean);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

type
 TIrgendwas = record
  { ... }
 end;
 TNochwas = record
  { ... }
 end;

var Irgendwas: TIrgendwas;
 Nochwas: TNochwas;

procedure Speichern(Dateiname: String);
var
 F: File;
begin
 AssignFile(F, Dateiname);
 Rewrite(F, 1); // 1 = Byteweise schreiben
 BlockWrite(F, Irgendwas, SizeOf(Irgendwas));
 BlockWrite(F, Nochwas, SizeOf(Nochwas));
 CloseFile(F);
end;

procedure Laden(Dateiname: String);
var
 F: File;
begin
 AssignFile(F, Dateiname);
 Reset(F, 1); // 1 = Byteweise lesen
 BlockRead(F, Irgendwas, SizeOf(Irgendwas));
 BlockRead(F, Nochwas, SizeOf(Nochwas));
 CloseFile(F);
end;