Array 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. ???????

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;
**************************** But how to put the data back to 0?

dylnnet

Special judgment for 0

沧浪123

Sort by bubble

沧浪123

There is a dumb way: you can go to 0 for a loop, and put 0 at the back.

38744907

Take special care of 0.
Move the data after 0 forward, and then add 0 at the end.