Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Algorithms

⤷ Sort of array of string type

Use for sorting strings this algorithm: You should run along an array several times and compare each element of this array with next element and invert this strings if it necessary.
For comparing strings use CompareStr function.
This example shows sorting of names of months.

var
  mas: array[1..12] of string = (
    'January',
    'February',
    'March',
    'April',
    'May',
    'June',
    'July',
    'August',
    'September',
    'October',
    'November',
    'December');
...
procedure TForm1.Button2Click(Sender: TObject);
var
  Str: string;
  Num: Integer;
  Check: Boolean;
begin
  repeat
    Check:=False;
    Num:=1;
    repeat
      if CompareStr(mas[Num], mas[Num+1])>0 then
      begin
        Str:=mas[Num];
        mas[Num]:=mas[Num+1];
        mas[Num+1]:=Str;
        Check:=True;
      end;
      Inc(Num);
    until(Num>11);
  until(Check=False);
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes