Forum: Programmieren allgemein
Delphi
by Ginko,
21. Jun 2013
Zu Unit1:
procedure TForm1.FormDestroy(Sender: TObject);
begin
Hintergrund.Free;
Kopf.Free;
Schlange.Free;
//Futter.Free; wird nicht mit TFutter.create erstellt, deshalb ist die Freigabe hier sinnlos
//Schwanz.Free; ebenfalls
end;
Forum: Programmieren allgemein
Delphi
by Ginko,
19. Jun 2013
Was meinst du damit ? Die Geschwindigkeit der Bewegung ?
Forum: Programmieren allgemein
Delphi
by Ginko,
19. Jun 2013
Siehe hier http://de.wikibooks.org/wiki/Programmierkurs:_Delphi:_Pascal:_Klassen,
unter allgemeiner Aufbau.
An Hoch und runter hatte ich nichts geändert, war schon vertauscht.
Mfg
Forum: Programmieren allgemein
Delphi
by Ginko,
19. Jun 2013
Man sollte noch die Klassen die man mit Create erstellt hat wieder freigeben.
Also:
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(Hintergrund);
FreeAndNil(Kopf);
//usw...
end;
Forum: Programmieren allgemein
Delphi
by Ginko,
19. Jun 2013
in mTKopf steht folgendes:
procedure TKopf.bewege_links;
begin
zXPosition := zXPosition - zXGeschwindigkeit;
end;
was heißt hier werden nur die Koordinaten geändert, es muss aber wieder neu gezeichnet werden.
Es sollte doch dann eigentlich so in der Art gehen:
Forum: Programmieren allgemein
Delphi
by Ginko,
19. Jun 2013
Oder wenns zu lang ist einen Anhang machen, da am besten mal alle "mT" Units mit rein.