Probleme mit Kommarechnung

Hallöchen... Ich habe ein kleines Problem.
Hier erst mal der Code!!!

void __fastcall TForm1::BAnnehmenClick(TObject *Sender)
{
  LCalls->Caption = StrToInt(LCalls->Caption) +1;
  CallStart = TimeToStr(Time());
  BAnnehmen->Visible = false;
  BAuflegen->Visible = true;
  BAuflegen->Default = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BAuflegenClick(TObject *Sender)
{
  CallTime->Caption = TimeToStr(Time()-CallStart);
  TimeDiff = Time() - BeginTime;
  DecodeTime(TimeDiff,hour,min,sec,msec);
  TimeInSec = StrToInt(3600*(hour) + 60*(min) + (sec));
  Ergebnis = FloatToStr(32400.0)/TimeInSec;
  TimeInSec = 0;
  BAnnehmen->Visible = true;
  BAuflegen->Visible = false;
  BAnnehmen->Default = true;
}

Soll eine TelefonSW werden. Wie bekomme ich Ergebnis mit Kommazahlen ausgegeben. Wenn die Zeit ziehmlich weit abegelaufen ist muss ich ja 32400 / 20000 beispielsweise rechnen. und da kommt aber nur immer 1 raus... Ist mir aber zu ungenau.

Loriat

Hi,

was für ein Variablentyp ist denn "Ergebnis"?

Ciao
Loriat

Jansen

FloatToStr(32400.0)/TimeInSec macht nicht wirklich Sinn, oder?
Meintest du vielleicht FloatToStr(32400.0/TimeInSec)?