Mega Code Archive
Sort of array of string type
<![CDATA[
Title: 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;
]]>