Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  AW: TStrings mischen nach Fisher-Yates

    Delphi
    by shmia, 24. Jan 2011
  Zum Thema Performance: Sortieren von 3000 Zeilen eines TMemo
  Procedure aus Betrag #1: 0,26 Sekunden
  Procedure aus vorherigem Betrag: 39,5 SekundenDamit ist die ursprüngliche Procedure mehr als 100fach schneller.
  
  
  Also ich sehe das so:
  Die Procedure erwartet ein gültiges Objekt von TStrings bzw. eine Ableitung davon.
  Sollte der Programmierer fälschlicherweise ein "Nil-Objekt"...
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  TStrings mischen nach Fisher-Yates

    Delphi
    by shmia, 21. Jan 2011
  Es gibt verschiedene Verfahren um eine Liste zu Mischen; also in eine zufällige Unordnung zu bringen.
  Der bekannteste Algorithmus dürfte der nach Fisher-Yates sein.
  
  Man darf sich von der Einfachheit der procedure FisherYatesShuffle() nicht täuschen lassen.
  Beim Mischen kann man durchaus einige Fehler machen, die leider nicht sofort ins Auge fallen.
  
  Zusätzlich sorgt der folgende Code...