- TModel = class
- private
- Mesh : TList;
- public
- constructor Create;
- destructor Destroy;
- procedure LoadModel(FName: String);
- procedure Render(Index: Integer);
- end;
- //....
- { ===== Model Create ===== }
- constructor TModel.Create;
- begin
- Mesh := TList.Create;
- end;
- { ===== Load Model ===== }
- procedure TModel.LoadModel(FName: String);
- var Model : ^TAll3DSMesh;
- begin
- New(Model);
- Model^ := TAll3DSMesh.Create(nil);
- Model^.TexturePath := 'GFX';
- Model^.LoadFromFile('GFX' + FName);
- Mesh.Add(Model);
- end;
- //...
- procedure TGLForm.FormCreate(Sender: TObject);
- begin
- //...
- Model := TModel.Create;
- Model.LoadModel('CBoard.3DS');
- Model.LoadModel('Pawn.3DS');
- //...
- end;