diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-02 16:52:53 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-02 16:52:53 +0000 |
commit | 43806a5ca483e8767066d5a7b1e02557056e40bd (patch) | |
tree | ea975f18815aec37f03f8cba1e38f68d64c0def3 /Game/Code/Classes/ULyrics.pas | |
parent | fffe085266382cfcaeed4b600f4d6bb104bfa38d (diff) | |
download | usdx-43806a5ca483e8767066d5a7b1e02557056e40bd.tar.gz usdx-43806a5ca483e8767066d5a7b1e02557056e40bd.tar.xz usdx-43806a5ca483e8767066d5a7b1e02557056e40bd.zip |
TCoreModule overloads the Free destructor "destructor Free" with a self defined "procedure Free". At least Free should not be defined explicitly because there already is a default Free() implementation that checks if the reference is nil and if not, calls Destroy. Making the destructor a procedure does not look correct too.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1054 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/ULyrics.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas index 38bc1e7a..b542b5f6 100644 --- a/Game/Code/Classes/ULyrics.pas +++ b/Game/Code/Classes/ULyrics.pas @@ -114,7 +114,7 @@ type Constructor Create; overload;
Constructor Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real); overload;
Procedure LoadTextures;
- Destructor Free;
+ Destructor Destroy; override;
end;
implementation
@@ -190,9 +190,9 @@ end; //---------------
-// Free - Frees Memory
+// Destroy - Frees Memory
//---------------
-Destructor TLyricEngine.Free;
+Destructor TLyricEngine.Destroy;
begin
end;
|