Cockpit.PersRundenrekord

Einleitung


Liefert die persönliche Bestzeit des Fahrers bezogen auf eine Runde.

Wie Cockpit.Rundenrekord nur für digitale Rennbahnen einsetzbar.

Syntax

Befehl Cockpit.PersRundenrekord
Funktion Persönlich schnellste Zeit auf eine Runde in Millisekunden
Typ Integer


Codebeispiel

var
  slot : Integer;
  msg : String;
  
begin

  // für alle Slots durchlaufen
  for slot := 1 to cpCountOfSlots do
  begin

    // Slot einstellen
    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;
    
    // Anlage oder digitale Rennbahn?
    if cpCourseAnalogTyp then
    begin

      // Meldung erweitern - analoge Rennbahn
      msg := msg + Chr(13) + Chr(10);
      msg := msg + 'Persönlicher Slotrekord: ';
      msg := msg + cpIntToStr3(Cockpit.PersSlotrekord) + 's';
      msg := msg + Chr(13) + Chr(10);
      msg := msg + 'Persönlicher Slotrekord mit Fahrzeug: ';
      msg := msg + cpIntToStr3(Cockpit.PersSlotrekordFz) + 's';

    end
    else
    begin
    
      // Meldung erweitern - digitale Rennbahn
      msg := msg + Chr(13) + Chr(10);
      msg := msg + 'Persönlicher Rundenrekord: ';
      msg := msg + cpIntToStr3(Cockpit.PersRundenrekord) + 's';
      msg := msg + Chr(13) + Chr(10);
      msg := msg + 'Persönlicher Rundenrekord mit Fahrzeug: ';
      msg := msg + cpIntToStr3(Cockpit.PersRundenrekordFz) + 's';
    
    end;
    
    // Meldung anzeigen
    cpShowMessage(msg);

  end;
      
end.


Dieser Code zeigt eine Meldung mit Information zu Slot, Fahrer, Spur/ID und Fahrzeugnamen. Dazu sind der Persönliche Slotrekord unabhängig vom gewählten Fahrzeug und die persönliche Bestzeit mit dem eingestellten Auto für den Fahrer zu sehen.



Start - FAQ - Glossar - Sitemap - Impressum

 
cockpit-xp/addon/befehlsreferenz/cockpit.persrundenrekord.txt · Zuletzt geändert: 2020/11/28 12:16 (Externe Bearbeitung)