Popup menü items sortieren?

[Cylence]

häh? mumus? was abarbeiten? ich will nur die menüs sortiert haben was is daran jetzt so schlimm? und die menüs ändern sich doch nich dauernd oder sowas...nur in englisch sorted in deutsch isses schon sorted fertig aber sowas gibts ja eh nich also is das ja relativ

[RavenIV]

TMenu.Items ist ein indiziertes Array.
Da kann man sicher irgendwie ein "Sort" dafür aufrufen.

Quäl Dich mal durch die Hilfe für TMenu.

[Cylence]

ok das hört sich gut an ich dachte auch schon an sowas wie einfach items.sorted aber das gibts leider nicht...

[Cylence]

mir fällt ein gutes beispiel ein windows xp startmenü rechtsklick nach namen sortieren genau sowas brauch ich...

[RavenIV]

Zitat von Cylence:

ok das hört sich gut an ich dachte auch schon an sowas wie einfach items.sorted aber das gibts leider nicht...

Vermutlich musst Du das selber schreiben.
Da kannst Du ja einen der einfachen Sortieralgos (z.B. BubbleSort) nehmen.
Du wirst ja nicht mehrere Tausend MenuItems haben, sodass das optimiert sein müsste.

/nicht ernst gemeint
Oder aufwändig:
Punp die Menueinträge in eine TList.
Da gibt es ein TList.Sort

[Cylence]

hmmm sehr schade na dann werd ich das wohl so machen müssen ich danke euch!!!

[toms]

Hier mal ein Vorschlag:

Delphi-Quellcode:

procedure SortPopupMenu(PopupMenu: TPopupMenu);
var
  n1, n2: Integer;
  mi: TMenuItem;
begin
  with PopupMenu, Items do
  begin
    for n1 := 0 to Count - 1 do
    begin
      for n2 := n1 + 1 to Count - 1 do
      begin
        if Items[n1].Caption > Items[n2].Caption then
        begin
          mi := Items[n2];
          Delete(n2);
          Insert(n1, mi);
        end;
      end;
    end;
  end;
end;

[RavenIV]

ich würde aber das
if Items[n1].Caption > Items[n2].Caption then
erweitern, sodass nur nach dem Anfangsbuchstaben gesucht wird
if Items[n1].Caption[1] > Items[n2].Caption[1] then

[toms]

Zitat von RavenIV:

ich würde aber das
if Items[n1].Caption > Items[n2].Caption then
erweitern, sodass nur nach dem Anfangsbuchstaben gesucht wird
if Items[n1].Caption[1] > Items[n2].Caption[1] then

Dann ist es aber nicht mehr ganz alphabetisch.

[RavenIV]

Zitat von toms:

Dann ist es aber nicht mehr ganz alphabetisch.

Kommt halt auf die Anforderungen an.
Wenn es z.B. mehr als einmal "C..." geben sollte, muss man halt mit StrComp (oder so) arbeiten und mehr als nur eine Stelle beachten.