Dieser Befehl liefert den Zeitrückstand in Millisekunden auf den Führenden in der Session (Platz 1). Ist man selbt der Führende ist der Wert 0.

{ Pascal Script Engine }
{ Event: StartZiel }
{ Parameter: Cockpit.Slot=<SlotPlatz> }


var
  slot : Integer;
  id : Integer;
  msg : String;
  
begin

  // Variable initialisieren
  msg := '';
  
  // für alle Spuren durchlaufen
  for slot := 1 to cpCountOfSlots do
  begin
  
    // Slot einstellen
    Cockpit.Slot := slot;
  
    // Regler-ID speichern
    id := Cockpit.SlotID;
  
    // Meldung erweitern
    msg := msg + 'Slot: ' + IntToStr(slot) + ' - ';  
    msg := msg + Cockpit.FahrerName + ' - ';
    msg := msg + 'ID: ' + IntToStr(id);
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Aktuelle Position: ' + IntToStr(Cockpit.Position);
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Rückstand P1 (Zeit): ' + cpIntToStr3(Cockpit.AbstandZeitFuehrenden) + 's';
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Rückstand P1 (Runden): ' + IntToStr(Cockpit.AbstandRundeFuehrenden);
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Rückstand Vo (Zeit): ' + cpIntToStr3(Cockpit.AbstandZeitVordermann) + 's';
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Rückstand Vo (Runden): ' + IntToStr(Cockpit.AbstandRundeVordermann);
    msg := msg + Chr(13) + Chr(10);
    msg := msg + '----------------------------------------------';
    msg := msg + Chr(13) + Chr(10);
    
  end;

  // Meldung anzeigen
  cpShowMessage(msg);
  
end.

Dieser Code zeigt eine Meldung an, die alle Funktionen einschließt, die sich auf Abstände zum Führenden oder den Vordermann beziehen.

Start - FAQ - Glossar - Sitemap - Impressum