Memo.Clear zeigt keinen Effekt - Falsche Anzeige

[gordon freeman]

Hi Leute,
ich habe eine Lösung für das unten dargestellte Problem für den Informatik-Unterricht programmiert. Innerhalb einer selbst definierten Klasse habe ich folgendes:

Delphi-Quellcode:

procedure TTurm.ZeigeDich(Memo : TMemo);
var i:integer;
begin
  Memo.Clear;
  for i:=0 to length(Elemente)-1 do
    Memo.Lines.Add(inttostr(Elemente[i]));
end;

Auch wenn das Array Elemente leer ist wird jedoch immer noch eine Zahl im Memo angezeigt. Ich hab mal das ganze Programm angehängt, wäre nett, wenn ihr's euch mal ansehen könntet. Ich bin mit meinem Latein am Ende


Problem:
Ein Eingeborenenstamm hat 3 Türme. Auf dem ersten liegen sortiert und nummeriert 100 Scheiben. Die 100te ist die dickste und liegt ganz unten. darüber die 99te bis oben die 1te liegt, die ist am dünnsten. Jetzt sollen alle Scheiebn in genauso sortiert auf den 3.ten Turm gebracht werden, allerdings müssen 2 Regeln beachtet werden:

• Es darf immer nur eine Scheibe bewegt werden.
• Eine Scheibe darf nur auf dem Boden oder auf einer größeren Scheibe liegen, nie auf einer kleineren.