Sortere en listbox

ListBox1.Sorted := true;


Jens B

Det har jeg prøvet. Det virker ikke.

Jeg har lige tested det følgende kode :

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  randomize;
  for i := 0 to 500 do
    ListBox1.Items.Add(IntToStr(Random(500)));
  ListBox1.Sorted := true;
end;


Det virker fint !

Også selv om jeg sætter sorted propertyen først
Jens B

Tal har jeg heller ikke problemer med. Men når det kommer til bogstaver sker der intet. TLisbox er måske kun beregnet til tal..eller?

Det her virker også fint ...

procedure TForm1.FormCreate(Sender: TObject);
  function GetRandomChar : Char;
  var
    i : Integer;
    Valid : Boolean;
  begin
    repeat
      i := Random (223) + 32;
      Valid := char(i) in ['A'..'Z', 'a'..'z'];
    until Valid;
    Result := char(i);
  end;
var
  i,k,l : Integer;
  s : String;
begin
  randomize;
  for i := 0 to 10 do
  begin
    k := Random(20) + 1;
    s := '';
    for l := 1 to k do
      s := s + GetRandomChar;
    ListBox1.Items.Add(s);
  end;

  ListBox1.Sorted := true;
end;


Hvis du vil vide hvordan du skriver din EGEN sorterings fætter vil jeg gerne vise det ...

Jens B

Hmm, tjaa...Det virker også fint hos mig. Men i det andet program er den stadig ret ligeglad.

Er der nogle andre properties der kan have indvirkning på det?

"...sorterings fætter..."
- Det vil da være fjong hvis du gider det.

-Remis

Fandt ud af det!

Jeg kan ikke helt huske hvordan det var, men jeg læste linierne ind med noget der ligner
listbox.items[i] := stringlist-dims, som var smidt i en løkke.
Derfor ville den ikke sortere lige meget hvor mange krumspring jeg gjorde.

-René