Liefert die Durchschnittsgeschwindigkeit über die Renndistanz. Errechnet sich aus verstrichener Zeit und den bis dahin gefahrenen Runden. Entspricht damit der Variablen <durchvsum> für Rennbildschirme.

var
  slot : Integer;
  msg : String;
  
begin

  // Slot einstellen
  slot := Cockpit.Slot;
  Cockpit.Slot := slot;
    
  // Meldung zusammenstellen
  msg := '';
  msg := msg + 'Slot: ' + IntToStr(slot) + ' - ';
  msg := msg + Cockpit.FahrerName + ' - ';
  msg := msg + 'Spur/ID: ' + IntToStr(Cockpit.SlotID);
  msg := msg + Chr(13) + Chr(10);
  msg := msg + 'Fahrzeug: ' + Cockpit.FahrzeugName;
  msg := msg + Chr(13) + Chr(10);
  msg := msg + 'Gesamtzeit: ';
  msg := msg + cpIntToStr3(Cockpit.Gesamtzeit) + 's';
  msg := msg + Chr(13) + Chr(10);
  msg := msg + 'Runden gefahren: ';
  msg := msg + IntToStr(Cockpit.Runde);
  msg := msg + Chr(13) + Chr(10);
  msg := msg + 'Durchschnittsgeschwindigkeit: ';
  msg := msg + FormatFloat('#0.000', Cockpit.DurchGeschw) + ' km/h';
    
  // Meldung anzeigen
  cpShowMessage(msg);

end.

Dieser Code zeigt eine Meldung mit der bisher verstrichenen Gesamtzeit und den gefahrenen Runden als Fließkommazahl in km/h.

Start - FAQ - Glossar - Sitemap - Impressum