diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-08 18:31:08 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-08 18:31:08 +0000 |
commit | 2a708a74d0a2e9a26caeb6bacf9f252102c89326 (patch) | |
tree | ef5ae378fdf4430297e25f052f29fc862f02b9e0 /Game/Code/Classes/UVisualizer.pas | |
parent | 9aa48684216b0dca926fa7e68a1b843dc1a872ce (diff) | |
download | usdx-2a708a74d0a2e9a26caeb6bacf9f252102c89326.tar.gz usdx-2a708a74d0a2e9a26caeb6bacf9f252102c89326.tar.xz usdx-2a708a74d0a2e9a26caeb6bacf9f252102c89326.zip |
added "inherited ..." to all constructors to assure that the base-class constructor is called.
Different to C or Java, the constructor or destructor of the base class (except that of TObject) is not called by default if "inherited ..." is not given (very strange). This is no problem with classes inherited directly from TObject, because the TObject constructor is always called (and sets the values of the fields to 0-values) but i added inherited to these constructors too because the base class may change from TObject to something different and the "inherited" will probably not added in this case and causing problems.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1070 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UVisualizer.pas | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Game/Code/Classes/UVisualizer.pas b/Game/Code/Classes/UVisualizer.pas index de117f20..d778eff7 100644 --- a/Game/Code/Classes/UVisualizer.pas +++ b/Game/Code/Classes/UVisualizer.pas @@ -91,7 +91,6 @@ type procedure RestoreOpenGLState(); public - constructor Create(); procedure Init(); function GetName: String; @@ -110,12 +109,6 @@ type end; -constructor TVideoPlayback_ProjectM.Create(); -begin - inherited; -end; - - procedure TVideoPlayback_ProjectM.Init(); begin // FIXME: dirty fix needed because the init method is not @@ -393,6 +386,4 @@ initialization finalization AudioManager.Remove( singleton_VideoProjectM ); - - end. |