Liefert Informationen sortiert nach der Slotnummer. Kaum genutzter Befehl, weil Cockpit.Position das gleiche Resultat zeigt und wahrscheinlich intuitiver zu handhaben ist.

Zu sehen sind zwei Wege, zum gleichen Ziel zu gelangen. Die erste for-Schleife arbeitet mit Cockpit.Position. Variante zwei mit cpGetSlotSorted. Die daraus generierte Meldung zeigt, dass die Resultate exakt übereinstimmen.

var
  slot : Integer;
  msg : String;
  
  sFahrerName : String;
  platz : Integer;
  bestzeit : Integer;

  sFahrerSort : String;
  platzSort : Integer;
  bestzeitSort : Integer;


begin

  // Meldung erweitern
  msg := '';
  msg := msg + 'Variante mit Cockpit.Position';
  msg := msg + '----------------------------------------------';
  msg := msg + Chr(13) + Chr(10);
  
  // Cockpit.Position
  for slot := 1 to cpCountOfSlots do
  begin
  
    // Slot einstellen
    Cockpit.Slot := slot;
    
    // Werte in Variablen speichern
    sFahrerName := Cockpit.FahrerName;
    platz := Cockpit.Position;
    bestzeit := Cockpit.SchnellsteRunde;
    
    // Meldung erweitern
    msg := msg + 'Slot [' + IntToStr(slot) + '] - ';
    msg := msg + 'Fahrer ' + sFahrerName + ' - ';
    msg := msg + 'Platz ' + IntToStr(platz) + ' - ';
    msg := msg + 'Bestzeit ' + cpIntToStr3(bestzeit) + ' s';
    msg := msg + Chr(13) + Chr(10);

  end;
  

  // Meldung erweitern
  msg := msg + Chr(13) + Chr(10);
  msg := msg + 'Variante mit cpGetSlotSorted()';
  msg := msg + '--------------------------------------------';
  msg := msg + Chr(13) + Chr(10);
    
  // cpGetSlotSorted
  for slot := 1 to cpCountOfSlots do
  begin
  
    // sortiert nach slot abfragen
    cpGetSlotSorted(slot);
    
    // Slot einstellen
    Cockpit.Slot := slot;
  
    // Werte in Variablen speichern
    sFahrerSort := Cockpit.FahrerName;
    platzSort := Cockpit.Position;
    bestzeitSort := Cockpit.SchnellsteRunde;
    
    // Meldung erweitern
    msg := msg + 'Slot [' + IntToStr(slot) + '] - ';
    msg := msg + 'Fahrer ' + sFahrerSort + ' - ';
    msg := msg + 'Platz ' + IntToStr(platzSort) + ' - ';
    msg := msg + 'Bestzeit ' + cpIntToStr3(bestzeitSort) + ' s';
    msg := msg + Chr(13) + Chr(10);

  end;
  
  // Meldung anzeigen
  cpShowMessage(msg);
  
end.

Dieser Code zeigt eine Meldung an, die Slot, Fahrernamen, Platzierung und die schnellste Rundenzeit einschließt.

Start - FAQ - Glossar - Sitemap - Impressum