Random() zu langsam?

[brinkee]

Hehe, das ist natürlich gut :D

[Dax]

Zitat:

Zitat von Kuonrat

Ich war so KLUK 'QueryPerformanceFrequency' zu benutzten statt GetTickCount. Das war die ultimative Performance Bremse.

Das halte ich für ein Gerücht. Selbst in einer VM braucht ein Aufruf von QueryPerformance* nur jeweils drei Mikrosekunden.

[3_of_8]

Delphi-Quellcode:

procedure TFach.generate;
var i : Integer;
begin

SetLength(Items, Number+1);

for i := 0 to Number do
  begin
  Items[i] := Random(Number)+1;
  end;

end;

Hab mich wohl versehen, das auf den ersten Blick so ausgesehen, als würde er generate sehr oft aufrufen und dabei jedesmal neuen Speicher reservieren. Ich sollte wohl genauer hinschauen.

[Kuonrat]

Zitat:

Zitat von Dax

Zitat:

Zitat von Kuonrat

Ich war so KLUK 'QueryPerformanceFrequency' zu benutzten statt GetTickCount. Das war die ultimative Performance Bremse.

Das halte ich für ein Gerücht. Selbst in einer VM braucht ein Aufruf von QueryPerformance* nur jeweils drei Mikrosekunden.

Okay, es mag eher daran gelegen haben, das ich die Zeit des gesammten Buttons gemessen habe. Dadurch zieht sich auch die Progressbar hinaus. Umklammer ich nur das Generieren an sich, erhalte ich selbige Werte.
Was soviel bedeutet, dass ich weiterhin am Auslesen in der GUIa rbeiten muss.

[Dax]

Nein, das bedeutet, dass du deine Daten nicht in der GUI speichern solltest, denn dafür ist die GUI nicht gemacht worden ;)

[Kuonrat]

Na meine Daten sind doch zur Zeit im Array, welches sich in der Fachklasse TFach befindet. Auslesen tat ich mit einer Schleife. Und das wollte ich jetzt so ändern, dass die Daten in TStringList gespeichert werden und mittels List.Assign anfügen. Oder hab ich das falsch verstanden?

[Hawkeye219]

Hallo,

du hast die Zahlen doch bereits in einem Array abgelegt, warum dann noch einmal in einer Stringliste und anschließend in der ListBox? Du kannst eine TListBox im virtuellen Modus betreiben (ListBox.Style = lbVirtual). Für jedes Element wird dann ein OnData-Ereignis ausgelöst, in dem du die anzuzeigenden Daten bereitstellen mußt.

Wie bist du eigentlich auf die Idee gekommen, 100000+ Elemente in einer Listbox darzustellen? Das Scrollen (und genaue Positionieren) in einer solchen Datenmenge macht keinen Spaß.

Gruß Hawkeye

[Kuonrat]

Ich möchte nur zahlen generieren, diese mit verschiedenen verfahren sortieren, und die benötigte zeit vergleichen.

[Kuonrat]

Zitat:

Zitat von shmia

Die Ursache für die schlechte Performance ist TListBox.Items.
Die Klasse ist zwar von TStrings abgeleitet, speichert seine Daten aber nicht selbst, sondern
per Windows Messages im darunterliegenden Control. Das Versenden von hundertausenden Messages braucht eben Zeit.
Abhilfe:
Daten in einer TStringList erzeugen und dann mit Assign auf die TListbox kopieren.

Hab ich ausprobiert, dauer exakt genauso lang.

[shmia]

Zitat:

Zitat von Kuonrat

Zitat:

Zitat von shmia

Die Ursache für die schlechte Performance ist TListBox.Items.
Die Klasse ist zwar von TStrings abgeleitet, speichert seine Daten aber nicht selbst, sondern
per Windows Messages im darunterliegenden Control. Das Versenden von hundertausenden Messages braucht eben Zeit.
Abhilfe:
Daten in einer TStringList erzeugen und dann mit Assign auf die TListbox kopieren.

Hab ich ausprobiert, dauer exakt genauso lang.

Du hast recht; hier meine Messwerte zum Füllen mit 100000 Strings à 4 Zeichen:

Code:

TStringList:  62ms
TMemo:      11.1s
TListBox:   1.75s

man sieht, dass TStringList um Welten schneller ist.
Es dauert allerdings gleich lang, wenn man eine TListBox direkt befüllt oder zuerst TStringList befüllt und dann auf TListbox "assigned".
(eigentlich logisch; in beiden Fällen müssen 100000 Messages verschickt werden)
ABER: wenn man auf die Strings zugreift um z.B. sie zu sortieren, dann macht das einen Unterschied
von Faktor 30 ob man den Sortiervorgang auf einer StringList ausführt oder auf TListBox.Items.