Sort

var tab=20;

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TStrings Sort";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы со списком строк TStrings";

// Заголовок
lbl=new TLabel(frm);
lbl.Caption="Список телефонов";
lbl.Font.Style=fsBold;
lbl.Left=(frm.ClientWidth-lbl.Width)/2;
lbl.Top =tab;

// Кнопка 1
bt1=new TButton(frm);
bt1.Caption="Обновить";
bt1.Top=lbl.Top+lbl.Height+tab;
bt1.numTag=1;
bt1.Hint="Обновить список";
bt1.ShowHint=true;
bt1.OnClick=btn_Click;

// Кнопка 2
bt2=new TButton(frm);
bt2.Caption="Сортировать";
bt2.Width=frm.TextWidth(bt2.Caption)+30;
bt2.Left =frm.ClientWidth-bt2.Width-tab;
bt2.Top =bt1.Top+bt1.Height+tab;
bt2.numTag=2;
bt2.Hint="Сортировать список";
bt2.ShowHint=true;
bt2.OnClick=btn_Click;

bt1.Left =bt2.Left;
bt1.Width=bt2.Width;

// Список строк
str=new TStrings();
Make_Strings(str);

// Текстовое поле
mem=new TMemo(frm);
mem.BorderStyle=bsSingle;
mem.SetBounds(tab,bt1.Top,bt1.Left-tab*2,stb.Top-bt1.Top-tab);
mem.Lines.Assign(str);

frm.ShowModal();

// Формирует список телефонов
function Make_Strings(str)
{
  var phn_Str;

  str.Clear();
  do {
    phn_Str=""+Math.round(Math.random()*10000000);
    switch (phn_Str.substr(0,1)) {
      case "0":
      case "8": continue;
    }
    if (phn_Str.length<7)
      continue;
    phn_Str=phn_Str.substr(0,3)+"-"+phn_Str.substr(3);
    str.Add(phn_Str);
  }
  while (str.Count<10);
}

// Обработчик события OnClick
function btn_Click(btn)
{
  switch (btn.numTag) {
    case 1: Make_Strings(str); break;
    case 2: str.Sort();
  }

  mem.Lines.Assign(str);
}