Bild fällt ... nicht

[Poring]

Huhu,
ich möchte das Bild gerne immer schneller fallen lassen:

Delphi-Quellcode:

var
  Form1: TForm1;
  Fallen: real;
  Höhe: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Fallen:= 1;
with Image1 do
repeat
Höhe:= Image1.Top;
Fallen:= Fallen*1.1;
Image1.Top:=Image1.Top - Fallen;
until ( Image1.Top = Höhe - 250 );
end;

Nur ich bekomme dann die Fehlermeldung:
[Fehler] Unit1.pas(36): E2010 Inkompatible Typen: 'Integer' und 'Extended'

Was muss ich den dort machen

mfg

[Luckie]

Wenn du von einem Gnazzahltypen einen Fließkommadatentyp abziehst, ist das Ergebnis auch ein Fließkommadatentyp. Der Ganzzahldatentyp wird bei dieser Operation entsprechend erweitert. Die Eigenschaft Top benötigt aber einen Ganzzahldatentyp, da es keine Bruchteile von Pixel gibt. Du musst also aus deinem Fließkommadatentyp mit Round oder Trunc, je nachdem was besser passt, wieder einen Ganzzahldatentyp machen.

[Apollonius]

Eine Höhe ist eine Ganzzahl, Fallen eine Gleitkommazahl. Zum Umwandeln kannst du z.B. round() oder trunc() nehmen.
Aber mal ernsthaft: Genau das steht doch eigentlich in der Fehlermeldung. Wir nutzen hier doch kein C++.

Außerdem muss in die Schleife noch ein Application.ProcessMessages, sonst siehst du nichts.

[Poring]

round(Fallen); so müsste es laut delphihelp sein:

Delphi-Quellcode:

For the last two cases, the result of calling the round() function is not the same as the result of adding 0.5 and then calling the floor() function because positive zero will be returned in such cases.

The following function call returns 3.

round(2.6)
The following function call returns 2.

round (2.4)

geht aber nicht:
[Fehler] Unit1.pas(36): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Int64' gefunden

- Ich wusste nur nich ob sich die meldung auf Top oder auf Fallen bezieht

EDIT:
ok richtig lesen muss man:
Fallen:=round(Fallen); nun kommt jedoch trozdem die Fehlermeludng:
[Fehler] Unit1.pas(37): E2010 Inkompatible Typen: 'Integer' und 'Extended'
bei Image1.Top:=Image1.Top - Fallen;

[RavenIV]

Wenn Du richtig gelesen hättest, wäre Dir aufgefallen, dass Du es so machen sollst:
Image1.Top:=round(Image1.Top - Fallen);

[Poring]

Ahso danke.
Nur rennt das jetzt innerhalb von 2 sec ins unendliche ... will das eigentlich langsam fallen lassen. Gibts da ne möglichkeit?

[DeddyH]

Du benutzt doch einen Timer. Also entweder dessen Interval höher stellen oder den Faktor (1.1) verkleinern.

[Poring]

Sollte ja auch noch flüssig sein. Was mich wundert:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
Fallen:= 1; 
with Image1 do 
repeat
Höhe:= Image1.Top; 
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
until ( Image1.Top = 50 );
end;

(Interval=2000)
Wenn es bei Top=50 bleibt es kurz stehen und dann rennt es ins unendliche nach unten. Warum?

[DeddyH]

Zitat von Poring:

until ( Image1.Top = 50 );

Und was, wenn Image1.Top > 50?

[Sergej]

Zitat von Poring:

Wenn es bei Top=50 bleibt es kurz stehen und dann rennt es ins unendliche nach unten. Warum?

Schau die mal den Unterschied zwischen einer while-Schleife und deiner repeat-until-Schleife an. Vielleicht kommst du selbst auf die Lösung