Nemmest at sortere listboks eller array ?

function SortListBox(List: TStringList; Index1, Index2: Integer): Integer;
var
  D1, D2: Integer;
begin
  D1 := StrToInt(List[Index1]);
  D2 := StrToInt(List[Index2]);
  If D1 < D2 Then
    Result := 1
  Else If D1 > D2 Then
    Result := -1
  Else
    Result := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  SL: TStringList;
begin
  ListBox2.Items.Add('3');
  ListBox2.Items.Add('1');
  ListBox2.Items.Add('34');
  ListBox2.Items.Add('63');
  ListBox2.Items.Add('355');
  ListBox2.Items.Add('7');
  ListBox2.Items.Add('10');
  ListBox2.Items.Add('55');

  SL := TStringList.Create;
  Try
    SL.Assign(ListBox2.Items);
    SL.CustomSort(SortListBox);
    ListBox2.Items.Assign(SL);
  Finally
    SL.Free
  End;
end;

Snowball

Hvis du vil have det mindste tal til at stå øverst, så lav SortListBox om til nedenstående:

  If D1 < D2 Then
    Result := -1
  Else If D1 > D2 Then
    Result := 1
  Else
    Result := 0;

Snowball

Eller også sætter du bare Sorted til true i din listbox

x-masman: Har du prøvet den !? Den virker meget dårlig da den er beregnet til at sortere alfabetisk og ikke til tal, så den sortere kun på første tegn i tallet og ikke hele tallet som helhed ;)

Snowball

hi hi. ok.

Denne procedure virker, hvis du skal have ændret rækkefølgen skal du bare vendre "krokodille-næbbet" :)

procedure SortListBox;
var
  Finished : Boolean;
  I : Integer;
begin
  repeat
      Finished := True;
      For I:=1 to Form1.ListBox1.Count-1 do
      begin
          If (StrToInt(Form1.ListBox1.Items.Strings[I]) > StrToInt(Form1.ListBox1.Items.Strings[I-1])) then
          begin
              Form1.ListBox1.Items.Move(I,I-1);
              Finished := False;
              break;
          end;
      end;
  until (Finished);
end;

razersedge >> hvordan får jeg den så til at bruge denne procedure ?

glem det.. sætter det jo bare ind i en anden.. :s

Du kalder bare:

SortListBox;

takker razersedge.. du får point da din løste mit problem bedst...

agg-zeus: Jeg har meget svært ved at hvordan razersedge's svar løser dit problem "bedst", for resultatet er fuldstændig det samme som mit !?

Ser gerne en mere uddybende forklaring.

Snowball

Snowball: Jeg skal med glæde give dig dine point. Sig til, så skal jeg oprette et spørgsmål.

razersedge: Det behøver du skam ikke, ville bare gerne høre agg-zeus hvorfor han mener din løsning er bedre end min :)

Snowball

fordi jeg skulle samtidig rykke værdierne op i en anden listbox når den rykkede dem i den listbox den sorterer i, og så synes jeg den var mere overskuelig for sådan en nybegynder som mig...