Inhaltsverzeichnis
CSerie.TeamMember
AddOn-Befehl zum Einsatz bei einem Serienrennen.
Syntax
| Befehl | CSerie.TeamMember(Teamname:String, Index:Integer) |
|---|---|
| Funktion | Zeigt den Namen des Teammitglieds (oder mehrerer/aller) des Teams, das auf dieser Spur oder dieser Regler-ID antritt |
| Typ | String |
| ab | 3.0.0 build 301 |
Codebeispiel
Gibt beim Start einer Session in einem Serienrennen, das als Teamrennen konfiguriert ist, die Namen der Teams und die Mitglieder der Teams als Meldung aus.
var
message : String;
slot : Integer;
i : Integer;
sTeamName : String;
sTeamMitglied : String;
begin
// Session ist gestartet worden
if Cockpit.Parameter = 0 then
begin
// Handelt es sich um ein Teamrennen?
if CSerie.TeamModusAktiv then
begin
// Meldungsinhalt initialisieren
message := '';
// alle Slots durchlaufen
for slot := 1 to cpCountOfSlots do
begin
// Slot einstellen
Cockpit.Slot := slot;
// Teamnamen speichern
sTeamName := CSerie.Teamname(slot);
// Meldungstext erweitern
message := message + 'Slot [' + IntToStr(slot) + '] - ';
message := message + 'Team ' + sTeamName;
message := message + Chr(13) + Chr(10);
// Jedes Team hat 2 Mitglieder
for i := 1 to 2 do
begin
// Name des Teammitglieds speichern
sTeamMitglied := CSerie.TeamMember(sTeamName, i);
// Meldungstext erweitern
message := message + 'Mitglied [' + IntToStr(i) + ']: ';
message := message + sTeamMitglied;
message := message + Chr(13) + Chr(10);
end; // END for - i
// Nach jedem Team einen Zeilenumbruch einfügen
message := message + Chr(13) + Chr(10);
end; // END for - slot
// Meldung anzeigen
cpShowMessage(message);
end; // END if - TeamModusAktiv
end; // END if - Cockpit.Parameter
end.
Dieses Beispiel zeigt die folgende Meldung an, wenn in einem Serienrennen eine Session gestartet wird. Zu sehen sind die Spur/ID und der Name des dort aktiven Teams. In den Zeilen darunter die Namen der Teammitglieder.
