Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Stringliste zufällig mischen

    Delphi
    by shmia, 18. Mär 2008
  Versuch mal spasseshalber, um zu Testen, ob die Random-Funktion die Bremse ist:
  procedure Shuffle(List: TStrings);
  var
  i: Integer;
  begin
  Randomize;
  List.BeginUpdate;
  try
  for i := 0 to Pred(List.Count) do
  List.Exchange(i, (i*991+103) mod List.Count); // 991 & 103=Primzahl
• Forum: Object-Pascal / Delphi-Language

  Re: Stringliste zufällig mischen

    Delphi
    by shmia, 18. Mär 2008
  Um welche TStrings Klasse handelt es sich genau ?
  Ist es vielleicht das Property Lines von TMemo oder Items von TComboBox ?
  Dann sind die Zugriff stark verlangsamt, da im Hintergrund Windows Messages verschickt werden.
  
  Workararoud: alle Items auf eine echte TStringList kopieren, Daten verwürfeln und wieder zurückkopieren.