Solved

How to sort items of ListBox ?

Posted on 1998-09-21
11
291 Views
Last Modified: 2010-04-06
Is it a way to sort the items of a ListBox
starting the caracter n°6 ?
Example:
no sorted :      --->          sorted

22005Armageddon          22007Akkenaton
22006Babouchka   --->    22005Armageddon
22007Akkenaton           22006Babouchka
22008Godzilla            22008Godzilla

Thanks for your help.
0
Comment
Question by:nk51
11 Comments
 
LVL 7

Expert Comment

by:BlackMan
ID: 1340424
You will have to set the Sorted property to False and then sort the strings prior to adding them to the ListBox.
0
 
LVL 4

Accepted Solution

by:
erajoj earned 10 total points
ID: 1340425
Hi,
Here's a way of sorting the way you want (postsort):

type
  TStringsSortCompare = function (List: TStrings; Item1, Item2: Integer): Integer;

function SortTrail6( List: TStrings; Item1, Item2: Integer): Integer;
var
  s1, s2: string;
begin
  s1 := List[ Item1 ]; Delete( s1, 1, 5 ); s2 := List[ Item2 ]; Delete( s2, 1, 5 );
  Result := CompareText( s1, s2 );
end;

function SortStrings( List: TStrings; SortProc: TStringsSortCompare ): Boolean;
  procedure QuickSort(L, R: Integer);
  var
    I, J, P: Integer;
  begin
    repeat
      I := L;
      J := R;
      P := (L + R) shr 1;
      repeat
        while SortProc(List, I, P) < 0 do Inc(I);
        while SortProc(List, J, P) > 0 do Dec(J);
        if I <= J then
        begin
          List.Exchange(I, J);
          Inc(I);
          Dec(J);
        end;
      until I > J;
      if L < J then QuickSort(L, J);
      L := I;
    until I >= R;
  end;
begin
  if Assigned( List ) then
  begin
    Result := True;
    QuickSort( 0, List.Count - 1 );
  end else Result := False;
end;

Here's how to use it:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SortStrings( ListBox1.Items, SortTrail6 );
end;

/// John
0
 
LVL 4

Expert Comment

by:binkzz
ID: 1340426
What you could do is make an invisible little listbox,
take the numbers of the original items and put the in the
other listbox, then copy the listbox2 to the listbox
and making sure the original listbox hasn't got the sorted
property set to true.

Hope this helps,
Tom
0
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
LVL 5

Expert Comment

by:inter
ID: 1340427
Hi,
The best way -at least mine- is to store that kind of values in Objects property of the TListBox's Lines property. Example,
Say you want to add the things above to a ListBox(or TStringList)

var
  Idx : integer;
begin
  ListBox1.Items.Clear;
  ListBox1.Items.Sorted := true;
  ListBox1.Lines.Add('Armageddon',Pointer(22005));
  ListBox1.Lines.Add('Babouchka',Pointer(22006));
  ListBox1.Lines.Add('Akkenaton',Pointer(22007));
  ListBox1.Lines.Add('Godzilla',Pointer(22008));
  //now assume you want to find what is the number associated with Godzilla
  if ListBox1.Lines.Find('Godzilla', idx) then
  begin
     ShowMessage(ListBox1.Lines[idx]+' has value' +
         IntToStr(Integer(ListBox1.Lines.Objects[idx])));
  end;
end;
regards, igor
0
 

Author Comment

by:nk51
ID: 1340428
I think erajoj has proposed the best nearest solution for my problem.
Thinks to you ERAJOJ !

0
 

Author Comment

by:nk51
ID: 1340429
I want to say :
thAnks to you ERAJOJ !
of course

And thanks to others for your solutions.
0
 
LVL 4

Expert Comment

by:erajoj
ID: 1340430
Hi,
What do you mean "nearest"?
If you do not think it's a complete solution, don't accept it.
I do not like providing semicrappy answers.
What else do you want?
If you wanted a TListBox decendant with automatic sorting
to replace the original one, you could just ask, you know.
That's what we're here for. :-)

/// John
0
 

Author Comment

by:nk51
ID: 1340431
I want to say :
thAnks to you ERAJOJ !
of course

And thanks to others for your solutions.
0
 

Author Comment

by:nk51
ID: 1340432
Don't panic Erajoj !
Your solution is the solution I waited !
Nearest was regarding the other answers.
If a solution is bad or doesn't correspond to what I'm waiting, I refuse it !

NK51 (-;
0
 
LVL 4

Expert Comment

by:erajoj
ID: 1340433
Good!
Just what I wanted to know.
Can't keep track of the qualifications of all of you, you know.
No panic, just don't like to rob the points of people when my
answers are mediocre.

/// John
0
 

Author Comment

by:nk51
ID: 1340434
Ok, no problem.
And I have only a few point to ask questions,
so I'm prudent with the reward.

   |
(-;|]
   |
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
In this video I am going to show you how to back up and restore Office 365 mailboxes using CodeTwo Backup for Office 365. Learn more about the tool used in this video here: http://www.codetwo.com/backup-for-office-365/ (http://www.codetwo.com/ba…

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now