Mathe Porblem

[Jelly]

Zitat von Alf:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   s: TTime;
   pTime,e : LongInt;
   c: Real;
   tin:real;
begin

     e:=800;  //Volumen endwert
     tin:=10; //  Testwerte tin
     if CheckBox1.Checked then
        ptime:=MediaPlayer1.Length-MediaPlayer1.Position
     else
         ptime:=MediaPlayer1.Position;

     if Time < tin then
        label2.caption:=floattostr(e/tin*Time) //ergebnis 72,xxxxxxxxxxxxx zahlen
                                               //nix von 0-800 
     else
     timer1.Enabled:=false;

.........

Was bitte schön ist denn bei dir "Time"? Bei Benutzung gibt Delhi dir die aktuelle Zeit wieder. Ich glaub nicht dass es das ist was du barauchst!