Du wirst es nicht glauben, aber das mit dem Vernichten versteh ich jetzt
Die Fehlermeldungen sind aber halt trotzdem da.
Und danke für den Seitenhieb- früher war ich mal gut in Informatik ...
Oh Mann bin ich doof, natürlich sollt ich die Buttons auch aus dem Formular nehmen wenn ich sie ausklammer. Kein Wunder dass die Fehlermeldung kam^^ Aber Erzeugen geht trotzdem noch nicht
Bah! Das mit Create hat ich am Anfang aber dann durhc neustart des Projektes hab ichs vergessen! Das create steht auch im Buch. Boah ey sowas vergessen, das versteh ich ja sogar noch
Edith: Also, nach ein paar dummen Fehlern funktioniert jetzt auch vernichten, aber der löscht alles auf einmal(und aufgrund vorherigen fehlern hatte ich mir n Label eingerichtet, dass mir auf Klick die count angibt, das zeigt mir dann 0 an). D.h. ma gucken
#
Zweite Edith: Geeeeil! Ich habs alleine geschafft!!!
Wie coooool! Ich liebe dieses Gefühl, etwas selbst zu schaffen(auch wenn ich den Rest ohne deine Hilfe wohl nicht hinbekommen hätte
Hier die Vernichten-PRozedur
Delphi-Quellcode:
procedure TMain.BtVernichtenClick(Sender: TObject);
var i: integer;
begin
i := Liste.Count - 1 ;
if Liste.Items[ i ] <> nil then
begin
TBewegteUhr( Liste.Items[ i ] ).Loeschen;
Liste.Delete( i );
end;
end;
Jetzt darf das ding nur nicht abstürzen wenn keine Uhr mehr da ist.