排序问题

hmthjc

傻子问个傻问题：
数组 strlist1 : TStringList; StrList[i] > '0'
如何把strlist1 中的值按升序排序，并且值为'0'的在后面。???????

四月天

strlist1.sort

supperman

傻子问个傻问题：
============
聪明人回答聪明问题。 :) :)

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; //看看结果
end;

//结果
======
1
2
3
4
5
0
0
0

njmumu

正常用sort排序肯定是0在前面,
而楼主用的是SL.CustomSort(@Compare);自定义排序,所以排序的结果和你Compare的方法有关系