Cockpit.Rundenrekord enthält die schnellste, jemals auf der eingestellten Rennbahn gefahrene Rundenzeit bezogen auf die Regler-ID. Die Funktion ist ausschließlich mit digitalen Rennbahnen verwendbar. Hier gibt es durch Spurwechsel auf der Runde keine feste Spurzuordnung mehr.
Für analoge Rennbahnen gibt es im Gegenzug die Funktion Cockpit.Slotrekord, die die schnellste Rundenzeit bezogen auf eine Spur beinhaltet.
Die gelieferte Zeit kann dem Bahnrekord entsprechen, muss es allerdings nicht.
Befehl | Cockpit.Rundenrekord |
---|---|
Funktion | Schnellste Rundenzeit auf dieser Rennbahn bezogen auf eine Regler-ID in Millisekunden |
Typ | Integer |
var slot : Integer; msg : String; begin // Meldung zusammenstellen msg := msg + 'Rennbahn: ' + Cockpit.RennbahnName; msg := msg + Chr(13) + Chr(10); msg := msg + 'Bahnrekord: ' + cpIntToStr3(Cockpit.Bahnrekord) + 's'; // Slot- oder Rundenrekord, je nach Rennbahntyp // nicht analog = digital if not cpCourseAnalogTyp then begin // Meldung erweitern msg := msg + Chr(13) + Chr(10); msg := msg + 'Digitale Rennbahn ausgewählt.'; // für alle eingestellten IDs ... for slot := 1 to cpCountOfSlots do begin // Slot einstellen Cockpit.Slot := slot; // Meldung erweitern msg := msg + Chr(13) + Chr(10); msg := msg + 'Rundenrekord ID ' + IntToStr(slot) + ': '; msg := msg + cpIntToStr3(Cockpit.Rundenrekord) + 's'; end; end // nicht digital = analog else begin // Meldung erweitern msg := msg + Chr(13) + Chr(10); msg := msg + 'Analoge Rennbahn ausgewählt.'; // für alle Slots = Spuren for slot := 1 to cpCountOfSlots do begin // Slot einstellen Cockpit.Slot := slot; // Meldung erweitern msg := msg + Chr(13) + Chr(10); msg := msg + 'Slotrekord Spur ' + IntToStr(slot) + ': '; msg := msg + cpIntToStr3(Cockpit.Slotrekord) + 's'; end; end; // Meldung anzeigen cpShowMessage(msg); end.
Dieser Code zeigt eine Meldung mit dem Namen der Rennbahn und dem Bahnrekord für diese Bahn. Außerdem ist zu sehen, um welchen Rennbahntyp es sich handelt und wie der Bahnrekord zu Slot- oder Rundenrekorden passt.