Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Stringlist in zufällige Reihenfolge bringen

   
    by Blup, 8. Sep 2023
  Eine funktionierende Lösung:
  
  procedure TitelEinfuegen(AList: TStrings; const ATitel: string; AAnzahl: Integer);
  begin
  var pos: Integer := AList.Count + 1 - 2 * AAnzahl;
  if pos < 1 then
  raise Exception.CreateFmt('Der Titel "%s" tritt zu häufig auf.', );
  
  pos := Random(pos);
  {ungültige Positionen überspringen}
• Forum: Programmieren allgemein

  AW: Stringlist in zufällige Reihenfolge bringen

   
    by Blup, 7. Sep 2023
  Vorschlag:
  
  1. merke dir alle mehrfach vorkommende Titel und deren Anzahl
  2. lösche die mehrfachen Titel, so dass jeder Titel nur einmal vorkommt.
  3. mische die Liste
  4. Füge die mehrfachen Titel zufällig einzeln ein.
  Dabei sind nur Positionen zulässig, die nicht unmittelbar vor oder nach dem gleichen Titel liegen.
  
  - Angenommen die Liste hat (a) Einträge.
  - damit gibt es (a +...