数组排序问题

hmthjc

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

hmthjc

var
   i, Position, n: integer;
   Value: TStrings;
   Done : boolean;
  begin
    n := High(Items);
    for i := 0 to n do
    begin
      Value := Items[i];
      Position := i;
      Done := false;
      while not done do
      begin
       if Position <= 0 then
         Done := true
       else
         if StrToInt(Value.Strings[13]) >= StrToInt(Items[Position - 1].Strings[13])  then
           Done := true
         else
         begin
             Items[Position] := Items[Position - 1];
             Position := Position - 1;
         end;
      end;
      Items[Position] := Value;
    end;
    //DownZero(Items);
  end;
****************************但是数据为0的怎么往后放置呢

dylnnet

为0的特别判断一下

沧浪123

用冒泡排序

沧浪123

有个笨方法：可以先去0进行一次循环，把0先放到后面。

38744907

对0做特殊照顾。
把0之后的数据前移，然后在最后加0。