AddOn-Befehl zum Einsatz bei einem Serienrennen.

Veranschaulicht die Verwendung der neuen AddOn-Befehle zum Abfragen von Daten aus dem Serienrennen aufsummierte Ergebnisse.

const
  CRLF = Chr(13) + Chr(10);

var
  i : Integer;
  msg : String;
  Renntag : String;
  Durchgang : Integer;
  RennIndex : Integer;
  Platz : String;
  Fahrer : String;
  Runden : String;
  Zeit : String;
  Teilstrecke : String;
  RestZeit : String; 
  Punkte : String;
  PunkteBestZeit : String; 
  PunktePole : String; 
  PunkteAddOn : String; 
  Res : Boolean;


begin

  // Variablen initialisieren
  Renntag := CSerie.AktuellerRenntag;
  Durchgang := CSerie.AktuellerDurchgang;   
  RennIndex := 0;
  Res := True;
  msg := '';
   
  // Alle Ergebnisse abarbeiten
  while (Res) do
  begin
   
    // Wenn Ergebnisse vorhanden, wird Res wahr
    Res := CSerie.GetRennErgebnisseSumme(Renntag,
                                         Durchgang,
                                         RennIndex,
                                         Platz,
                                         Fahrer,
                                         Runden,
                                         Zeit,
                                         Teilstrecke,
                                         RestZeit,
                                         Punkte,
                                         PunkteBestZeit,
                                         PunktePole,
                                         PunkteAddOn);
     
    // Es gibt Ergebnisse für den Durchgang
    if Res then
    begin
       
      // Meldung zusammenstellen
      msg := msg + 'Renntag: ' + Renntag + 
                   ', Durchgang : ' + IntToStr(Durchgang) +
                   ', Index: ' + IntToStr(RennIndex) + CRLF + 
                   'Platz: ' + Platz + 
                   ', Fahrer: ' + Fahrer+ 
                   ', Runden: ' + Runden + 
                   ',' + FormatFloat('00', StrToInt(Teilstrecke)) +
                   ', Zeit: ' + Zeit + 
                   ', RestZeit: ' + RestZeit + CRLF +
                   'Punkte: ' + Punkte +
                   ', PunkteBestZeit: ' + PunkteBestZeit+ 
                   ', PunktePole: ' + PunktePole +
                   ', PunkteAddOn: ' + PunkteAddOn + CRLF +
                   '------------' + CRLF;
                   
      // Nächste Ergebniszeile aufrufen             
      Inc(RennIndex);

    end;   // END if - Res = true
       
  end;   // END while - Res = true
      
  // Meldung anzeigen
  cpShowMessage(msg);
      
end.

Zeigt das Ergebnis des Serienrennens an, das im Serienrennenexplorer unter „Punkteliste anzeigen“ (Durchgang beendet) oder „Zwischenstand anzeigen“ (Durchgang noch offen) zu sehen ist.

Seit der Vorabversion 3.1.1 build 390 arbeiten die Befehle korrekt. Wer Wert darauf legt, sollte entsprechend seine Cockpit-XP Installation aktualisieren.

Hier im Befehl befindet sich jedoch weiter der Teamname im Feld Fahrer. Zum einen ist das so, weil es im Befehl selbst keinen Parameter „Team“ gibt. Das wahrscheinlich aus Gründen der einfacheren Programmierung.

Zum anderen ist bei einem Teamrennen ja kein einzelner Fahrer in der Gesamtwertung. Daher passt der Teamname hier trotzdem.

Bitte vergesst nicht, euren AddOn-Code entsprechend auf Stand zu bringen.

Start - FAQ - Glossar - Sitemap - Impressum