Liefert die persönliche Bestzeit des Fahrers mit dem eingestellten Fahrzeug auf der aktiven Spur.

Wie Cockpit.Slotrekord nur für analoge Rennbahnen einsetzbar.

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 ist 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