![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ 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