Liefert den Namen des Fahrers, der den FahrzeugRekordAbsolut gefahren hat.

var
  slot : Integer;
  msg : String;
  fahrzeugrekordabsolut : Integer;
  fahrzeugrekordabsolutfahrer : String;
  
begin

  for slot := 1 to cpCountOfSlots do
  begin

    // Slot einstellen
    Cockpit.Slot := slot;
    
    if Cockpit.FahrzeugRekordAbsolut = 2147483647 then 
      fahrzeugrekordabsolut := 0
    else
      fahrzeugrekordabsolut := Cockpit.FahrzeugRekordAbsolut;
    
    fahrzeugrekordabsolutfahrer := Cockpit.FahrzeugRekordAbsolutFahrer;
    
    // Meldung zusammenstellen
    msg := '';
    msg := msg + 'Slot: ' + IntToStr(slot) + ' - ';
    msg := msg + Cockpit.FahrerName + ' - ';
    msg := msg + 'Spur/ID: ' + IntToStr(Cockpit.SlotID);
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Fahrzeug: ' + Cockpit.FahrzeugName;
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Fahrzeugrekord absolut: ';
    msg := msg + cpIntToStr3(fahrzeugrekordabsolut) + 's';
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Fahrzeugrekord absolut Fahrer: ';
    msg := msg + fahrzeugrekordabsolutfahrer;
    msg := msg + Chr(13) + Chr(10);
    msg := msg + 'Bahnrekord: ' + cpIntToStr3(Cockpit.Bahnrekord) + 's';
    
    // Meldung anzeigen
    cpShowMessage(msg);

  end;
      
end.

Dieser Code zeigt eine Meldung mit Information zu Slot, Fahrer, Spur/ID und Fahrzeugnamen. Dazu ist der absolute Fahrzeugrekord zu sehen und der Fahrer, der diese Zeit gefahren ist. Zum Vergleich noch der Bahnrekord.

Start - FAQ - Glossar - Sitemap - Impressum