Inhaltsverzeichnis
CSerie.GetRennErgebnisseEinzel
AddOn-Befehl zum Einsatz bei einem Serienrennen.
Syntax
| Befehl | CSerie.GetRennErgebnisseEinzel( Renntag:String; Durchgang,RennIndex:Integer; Gruppe,Team,Fahrer,Fahrzeug,Spur,Runden,Teilstrecke,Fahrzeit,SchnellsteRz, Punkte:String ) |
|---|---|
| Funktion | Sofern vorhanden, stellt dieser Befehl die Ergebnisse aller bisher gefahrenen Einzelrennen des aktiven Durchgangs zur Verfügung |
| Typ | Boolean |
| ab | 3.0.8 build 363 |
Codebeispiel
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.
Hinweise
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.
