Sorting problem

hmthjc

The fool asked a silly question:
Array strlist1: TStringList; StrList [i]> '0'
How to sort the values ​​in strlist1 in ascending order, with the value of '0' following. ???????

四月天

strlist1.sort

supperman

The fool asks a silly question:
============
Smart people answer smart questions. :) :)

function Compare (List: TStringList; Index1, Index2: Integer): Integer;
begin
  if List [Index1] = '0' then
    if List [Index2] <> '0' then
      Result: = 1
    else
      Result: = 0
  else
    if List [Index2] = '0' then
      Result: = -1
    else
      Result: = CompareText (List [Index1], List [Index2]);
end;

procedure TFormDemo.ButtonDemoClick (Sender: TObject);
var
  SL: TStringList;
begin
  SL: = TStringList.Create;
  SL.Add ('0');
  SL.Add ('4');
  SL.Add ('1');
  SL.Add ('0');
  SL.Add ('0');
  SL.Add ('5');
  SL.Add ('3');
  SL.Add ('2');
  SL.CustomSort (@Compare);
  ListBox.Items: = SL; // Look at the result
end;

//result
======
1
2
3
4
5
0
0

njmumu

Normal sorting must be 0 in front,
The landlord uses SL.CustomSort (@Compare); custom sorting, so the sorting result is related to your Compare method