XProfan

Deutsch

Abigail

Hallo Leute,
ich habe mal ein etwas geändertes Beispiel für eine Sortierung nach Substrings verwendet. Im Prinzip klappt das ja auch ganz wunderbar, aber ab einer gewissen Größe, bei mir Satzgröße 248 Byte * ca. 400 Sätze, funktioniert die Sortierung der GRIDBOX ganz einfach nicht mehr. So zwischen 400 und 500 Datensätzen ist einfach eine Sortierung nur nach oftmaligem Betätigen (wenn überhaupt) des 'Sortierbuttons' möglich.
Ist das ein Bug oder habe ich da irgendwo eine Beschränkung überlesen??

Unten das Original Programm aus der Hilfe

Kompilieren Markieren Separieren

Declare Handle Grid, btn1, btn2, btn3, btn4, btn5
WindowTitle "Sortiertes Grid"
Window 600, 400
Grid  = Create("Gridbox", %HWnd, "Nummer;0;60;Name;0;100;Ort;0;120;Gehalt;0;60", 0, 10, 50, 340, 200)
btn1  = Create("Button",  %HWnd, "Sort", 10, 10, 60, 25)
btn2  = Create("Button",  %HWnd, "Sort", 75, 10, 60, 25)
btn3  = Create("Button",  %HWnd, "Sort", 170, 10, 60, 25)
btn4  = Create("Button",  %HWnd, "Sort", 290, 10, 60, 25)
btn5  = Create("Button",  %HWnd, "Ende", 500, 10,60, 25)
AddString(Grid, "500|Maier|Köln|4000")
AddString(Grid, "400|Schmidt|Hamburg|3000")
AddString(Grid, "300|Bauer|Mannheim|3500")
AddString(Grid, "200|Klein|Düsseldorf|3000")
AddString(Grid, "100|Fuchs|Stuttgart|7500")

WhileNot Clicked(btn5)

    WaitInput
    ClearList 0
    Move("HandleToList", Grid)

    If Clicked(btn1)

        SortList 5

    ElseIf Clicked(btn2)

        SortList "|", 2, 1

    ElseIf Clicked(btn3)

        SortList "|", 3, 1

    ElseIf Clicked(btn4)

        SortList "|", 4, 5

    EndIf

    ClearList Grid
    Move("ListToHandle", Grid)
    Case %Key = 2 : Break

EndWhile

Danke für Eure Antwort,

Abigail

04.07.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ich glaube, da bist du einfach zu ungeduldig. Wenn viele Datensätze vorhanden sind, dauert der Sortiervorgang einfach etwas länger. Besonders im Interpretermodus macht sich das dann bemerkbar.

Ich hab dein Programm mal noch etwas geändert, damit es "ruhiger" läuft.
So wird die Sortierroutine nur aufgerufen, wenn einer der Buttons geklickt wird.

Kompilieren Markieren Separieren

Declare Handle Grid, btn1, btn2, btn3, btn4, btn5
WindowTitle "Sortiertes Grid"
Window 600, 400
Grid = Create("Gridbox", %HWnd, "Nummer;0;60;Name;0;100;Ort;0;120;Gehalt;0;60", 0, 10, 50, 340, 200)
btn1 = Create("Button", %HWnd, "Sort", 10, 10, 60, 25)
btn2 = Create("Button", %HWnd, "Sort", 75, 10, 60, 25)
btn3 = Create("Button", %HWnd, "Sort", 170, 10, 60, 25)
btn4 = Create("Button", %HWnd, "Sort", 290, 10, 60, 25)
btn5 = Create("Button", %HWnd, "Ende", 500, 10,60, 25)
var handle btn6 = Create("Button", %HWnd, "Test", 400, 10,60, 25)

Proc SortMyList

    Parameters Int SortString
    ClearList 0
    Move("HandleToList", Grid)
    SortList "|",SortString,1
    ClearList Grid
    Move("ListToHandle", Grid)

EndProc

Randomize

WhileLoop 1,1500,5

    AddString(Grid, Format$("000",&Loop) + "|Maier|Köln|" + Str$(Rnd(8000)))
    AddString(Grid, Format$("000",&Loop + 1) + "|Schmidt|Hamburg|" + Str$(Rnd(8000)))
    AddString(Grid, Format$("000",&Loop + 2) + "|Bauer|Mannheim|" + Str$(Rnd(8000)))
    AddString(Grid, Format$("000",&Loop + 3) + "|Klein|Düsseldorf|" + Str$(Rnd(8000)))
    AddString(Grid, Format$("000",&Loop + 4) + "|Fuchs|Stuttgart|" + Str$(Rnd(8000)))

Wend

While 1

    WaitInput
    Case Clicked(btn5):Break

    If Clicked(btn1)

        SortMyList 1

    ElseIf Clicked(btn2)

        SortMyList 2

    ElseIf Clicked(btn3)

        SortMyList 3

    ElseIf Clicked(btn4)

        SortMyList 4

    ElseIf Clicked(btn6)

        print "a"

    EndIf

    Case %Key = 2 : Break

EndWhile

Jetzt wäre es natürlich noch interessant zu wissen, was genau du geändert hast, um ausschließen zu können, ob es an diesen Änderungen liegt.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

04.07.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Abigail

Hallo Jörg, danke für die Info, bzw Verbesserung. Meine Änderungen waren eigentlich nur marginal. 1. Insgesamt 7 spalten in der Tabelle, 2. natürlich Benennung und Größe der einzelnen Spalten. Dazu natürlich für jede Spalte Auf und Ab Sortier-Button, also insgesamt 14 Stück.
Nun, ich habe mittlerweile eine Lösung gefunden, die zwar ein wenig umständlich erscheint, aber funktioniert. Trotz der Menge der Sätze, ich habe es bis 5000 probiert, in einer Zehntelsekunde sortiert.
Sieht dann ungefähr so aus:

If Clicked(SORT[1])
ClearList 0
Move("HandleToList", GRID)
SortList "|", 1 ,5
ClearList Grid
Move("ListToHandle", Grid)
ElseIf Clicked(SORT[2])

und so weiter bis SORT[14]
Das funktioniert wirklich ohne jede Verzögerung selbst im Interpreter Modus.

Warum die Beispielroutine wie

While ...
ClearList 0
Move("HandleToList", GRID)

If Clicked(SORT[1])
SortList "|", 1 ,5
ElseIf Clicked(SORT[2])
SortList "|", 2 ,5
"" ""
ElseIf Clicked(SORT14])
SortList "|", 7 ,-3
ENDIF

ClearList Grid
Move("ListToHandle", Grid)

ENDWHILE

so unendlich träge ab einer gewissen Größe, bzw. gar nicht funktioniert, erschließt sich mir nicht ganz.

Trotzdem Danke für Deine Tips, werde ich mal morgen einsetzen um zu sehen, ob es damit auch funktioniert.

Gruß,
Abigail

04.07.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

maroro

Hallo in die Runde ...Gridboxen sortieren ist auch gerade mein Thema.
Dabei klappt das sortieren wunderbar einzig die Lösung jeder Spalte einen Knopf zu spendieren gefällt mir garnicht. Wie ist es möglich einen Klick auf die Spaltenüberschrift zu erkennen auch dann noch korrekt wenn die Größe der Spalte verändert wurde?

Bin gespannt auf euere Vorschläge

maroro

XProfan X2

25.11.2017 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren