AddOn-Befehl zum Einsatz bei einem Serienrennen.

Veranschaulicht die Verwendung der neuen AddOn-Befehle zum Abfragen von Daten aus dem Serienrennen für Einzelrennen und aufsummierte Ergebnisse.

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

var
  i : Integer;
  msg : String;
  Renntag : String;
  Durchgang : Integer;
  RennIndex : Integer;
  RennNummer : String;
  Gruppe : String;
  Team : String;
  Fahrer : String;
  Fahrzeug : String;
  Spur : String;
  Runden : String;
  Teilstrecke : String;
  Fahrzeit : String;
  SchnellsteRz : String;
  Punkte : String;
  Res : Boolean;
  RennNr : Integer;


begin

  // Variablen initialisieren
  Renntag := CSerie.AktuellerRenntag;
  Durchgang := CSerie.AktuellerDurchgang;   
  RennIndex := 0;
  Res := True;
  msg := '';
   
  // Es gibt Ergebnisse für Einzelrennen
  while (Res) do
  begin
   
    // Wenn Ergebnisse vorhanden, wird Res wahr
    Res := CSerie.GetRennErgebnisseEinzel(Renntag,
                                          Durchgang,
                                          RennIndex,
                                          RennNummer,
                                          Gruppe,
                                          Team,
                                          Fahrer,
                                          Fahrzeug,
                                          Spur,
                                          Runden,
                                          Teilstrecke,
                                          Fahrzeit,
                                          SchnellsteRz,
                                          Punkte);
     
    // Es gibt Einzelrennen mit Ergebnissen
    if Res then
    begin
       
      // noch kein Einzelrennen verfahren
      if RennNummer = '1' then
      begin

        // CSV Export - Einzelrennen Daten in Datei schreiben
        msg := msg + 'Renntag: ' + Renntag + 
                     ', Durchgang : ' + IntToStr(Durchgang) +
                     ', Index: ' + IntToStr(RennIndex) + 
                     ', Rennen Nr: ' + RennNummer + CRLF +
                     'Gruppe: ' + Gruppe + 
                     ', Team: ' + Team + CRLF + 
                     'Fahrer: ' + Fahrer + 
                     ', Fahrzeug: ' + Fahrzeug + CRLF + 
                     'Spur: ' + Spur + 
                     ', Runden: ' + Runden +
                     ', Teilstrecke: ' + Teilstrecke + 
                     ', Zeit: ' + Fahrzeit + CRLF + 
                     'Schnellste Zeit: ' + SchnellsteRz +
                     ', Punkte: ' + Punkte + CRLF +
                     '------------' + CRLF;

      end;   // END if - RennNummer
       
      // Nächstes Einzelrennen laden
      Inc(RennIndex);
         
    end   // END if - Res = true
    else
    begin
     
      // Fehler aufgetreten ?
      if RennNummer = '-1' then
      begin
     
        // Fehlertext im Fahrer
        Cockpit.WriteLog := 'Fehler aufgetreten: ' + Fahrer;
      
      end;   // END if - RennNummer -1
       
    end;   // END if - Res = false 
       
  end;   // END while - Res = true
      
  // Meldung anzeigen
  cpShowMessage(msg);
      
end.

Immer wenn dieser Code ausgeführt wird und neue Einzelrennen gefahren wurden, wird die angezeigte Meldung umfangreicher. Die Meldung selbst sollte der Ansicht „RennErgebnisse anzeigen“ im Serienrennen entsprechen.

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

Entsprechend befinden sich Fahrer- und Teamname in den richtigen Feldern und auch die Zeit steht jetzt nicht mehr unter Teilstrecke sondern im Feld Fahrzeit.

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

Start - FAQ - Glossar - Sitemap - Impressum