Liefert die Nummer des aktuellen Durchgangs an dem gewählten Renntag.

Gibt beim Start einer Session in einem Serienrennen diverse Informationen zur Anzahl der Rennen, der Nummer des aktuellen Rennens, etc. als Meldung aus.

var
  message : String;
  laufAktuell : Integer;
  anzahlRennen : Integer;
  anzahlGefahren : Integer;
  anzahlOffen : Integer;
  anzahlFahrer : Integer;
  aktuellerDurchgang : Integer;
  aktuellerRenntag : String;

begin

  // Session ist gestartet worden
  if Cockpit.Parameter = 0 then
  begin
  
    // Nummer des aktuellen Einzelrennens anzeigen
    laufAktuell := CSerie.AktuellesRennen;
    message := message + 'Momentan läuft Rennen ' + IntToStr(laufAktuell) + '.';
    message := message + Chr(13) + Chr(10); 
    
    // Anzahl der Einzelrennen im Durchgang
    anzahlRennen := CSerie.AnzahlRennen;
    message := message + 'Anzahl Rennen:  ' + IntToStr(anzahlRennen);
    message := message + Chr(13) + Chr(10); 
    
    // Wie viele Einzelrennen sind gefahren?
    anzahlGefahren := CSerie.AnzahlRennenGefahren;
    message := message + 'Rennen gefahren: ' + IntToStr(anzahlGefahren);
    message := message + Chr(13) + Chr(10);
    
    // Sind noch Läufe zu absolvieren offen?
    anzahlOffen := anzahlRennen - anzahlGefahren;
    
    // Meldung abhängig von der Anzahl offener Einzelrennen
    if anzahlOffen = 0 then
      message := message + 'Noch zu fahren: ' + IntToStr(anzahlOffen)
    else
      message := message + 'Alle Einzelrennen gefahren.';

    // Absatz einfügen
    message := message + Chr(13) + Chr(10);

    // Wie viele Fahrer gibt es in diesem Durchgang?
    anzahlFahrer := CSerie.AnzahlFahrer;
    message := message + 'Anzahl Fahrer: ' + IntToStr(anzahlFahrer);
    message := message + Chr(13) + Chr(10);
    
    // Wie lautet die Nummer des aktuellen Durchgangs?
    aktuellerDurchgang := CSerie.AktuellerDurchgang;
    message := message + 'Durchgang Nr.: ' + IntToStr(aktuellerDurchgang);
    message := message + Chr(13) + Chr(10);
    
    // Datum des Renntags?
    aktuellerRenntag := CSerie.AktuellerRenntag;
    message := message + 'Renntag: ' + aktuellerRenntag;
    message := message + Chr(13) + Chr(10);

    // Meldung anzeigen
    cpShowMessage(message);

  end;
    
end.

Dieses Beispiel zeigt die folgende Meldung an, wenn in einem Serienrennen eine Session gestartet wird. Wichtig: Die Meldung, dass alle Rennen gefahren sind, wird nie angezeigt. Der Fall tritt so nie ein und dient nur der Veranschaulichung der Möglichkeiten.

Hier noch das zugehörige Bild aus dem Serienrennenexplorer

Start - FAQ - Glossar - Sitemap - Impressum