Deutsches Lazarusforum

Hallo,
danke euch. Ich mache das jetzt so, dass ich die Prozedur 100 mal aufrufe, die Laufzeit aufsummiere und die Summe wieder durch 100 teile.

Grüß euch

Ach so, wieder 'was gelernt

Hallo,
Wie lässt sich denn das Multitasking abschalten? Ich hab es über den Taskmanager und Systemsteuerung versucht und habe keine Möglichkeit gefunden.
gprof werde ich heute mal testen.

Danke euch.

Moin,
ich bekomme bei der Laufzeitmessung einer Prozedur bei mehrmaligen Aufruf unterschiedliche Werte. Von z.b. 25+-3 ms springt der Wert dann auf 35 +-3 ms.
Die Laufzeitmessung habe ich mit Queryperformance programmiert.
Wie bekomm ich denn konstantere Werte?

Grüße

Danke, jetzt sieht es viel schon besser aus.

Hallo,

wie verhindere ich, das die Legende, die über dem ersten und dem letzten Balken steht, an den vertikalen Kanten des Diagramms abgeschnitten wird?


form2.Chart1BarSeries1.AddY(strtoint(einsertion.Text),'Insertionsort',clred);


Mit addy erzeuge ich den Balken und in den Eigenschaften von ...

Hallo, einfügen von liste:=tstringlist.create nach begin und von list.free am Schluss der Procedur vor dem end.
Dann müsste es funktionieren.
gruß

Sorry,
unter dem Link ist der Beitrag zu finden

http://www.lazarusforum.de/viewtopic.php?f=55&t=7029

Ich hab das mit der Legende jetzt zwar hingekriegt, so dass sie jeweils über dem zugehörigen Balken angezeigt wird.
Nur wird sie abgeschnitten wenn sie über die Kante der y Achse hinausgeht. Wie ...

Hallo,

ich nehme die Frage zurück. Hab leider jetzt erst gesehen, dass eine Frage zu dem Thema schon gestellt und beantwortet wurde.

Mit freundlichen Grüßen

Hallo,

ich will die Ergebnisse des Vergleichs der Sortierverfahren in einem Balkendiagramm darstellen und
hab dafür tchart bar series gewählt. Die Darstellung der Daten klappt, nur die Legende wird nicht angezeigt.

form2.Chart1BarSeries1.AddXY(2,strtoint(eselection.Text),'Selectionsort',clblue ...

Hallo theo,

unter anderem lag es auch daran. Mittlerweile hab ich's. So funktioniert es:


procedure shellsort (feld : tstrings);
var
h, indfeld, indhilfs, n : integer;
hilfsfeld : tstrings;
begin
h:=1;
indhilfs:=0;
n:=feld.Count-1;
hilfsfeld := tstringlist.Create;
while h<=n do
begin
h ...

Moin,

alles klar.
Einfügen von hilfsfeld := tstringlist.create am Anfang und hilfsfeld.free am Ende der Prozedur und es kommt zumindest diese Fehlermeldung nicht mehr.
Aber so richtig rund läuft die Prozedur noch nicht. Muss mir das ganze nochmal anschaun.

Danke schön

Hallo,

sorry wenn ich mit meinen Sortierverfahren nerve. Ich habe jetzt eine Prozedur für das Verfahren
Shellsort geschrieben, in der Insertionsort aufgerufen wird.


procedure shellsort (feld : tstrings);
var
h, indfeld, indhilfs, n : integer;
hilfsfeld : tstrings;
begin
h:=1;
n:=feld.Count-1 ...

Ach so,

Missverständnis: Ich habe insgesamt 8 Memofelder. 1 für die unsortierte Liste und 7 für die verschiedenen Sortierverfahren,
Aber nur 7 Editfelder für die Anzeige der Laufzeit der einzelnen Sortierverfahren. Daher gehörte Edit4 zu Memo5.
Mittlerweile habe ich die Komponenten umbenannt ...

Hab den Fehler gefunden.


if CQuick.Checked=true then //Aufruf Quicksort
begin
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(startTime);
memo5.Clear;
memo5.lines.AddStrings(memo1.Lines);
anfang:=0;
ende:=memo5.Lines.Count-1;
quicksort(anfang, ende, memo5.lines ...