Mir fällt grade auf, dass ich die Rangfolgen etwas anpassen könnte.
Delphi-Quellcode:
{
#######################################################################
# #
# ____ __ __ #
# /\ _`\ /\ \ /\ \ #
# \ \ \/\_\ ___ \_\ \ __ _____ __ \_\ \ #
# \ \ \/_/_ / __`\ /'_` \ /'__`\/\ '__`\ /'__`\ /'_` \ #
# \ \ \L\ \/\ \L\ \/\ \L\ \ /\ __/\ \ \L\ \/\ \L\.\_ /\ \L\ \ #
# \ \____/\ \____/\ \___,_\\ \____\\ \ ,__/\ \__/.\_\\ \___,_\ #
# \/___/ \/___/ \/__,_ / \/____/ \ \ \/ \/__/\/_/ \/__,_ / #
# \ \_\ #
# \/_/ #
# #
#######################################################################
# #
# Letze Änderung: 15.05.2006 #
# Version: 1.0.0.30 #
# Autor: Stefan Hollenbach #
# Lizenz: General Public License #
# #
# This program is free software; you can redistribute it and/or #
# modify it under the terms of the GNU General Public License #
# as published by the Free Software Foundation; either version 2 #
# of the License, or (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
#######################################################################
}