Inhaltsverzeichnis
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.
