Сортировка строк в MEMO

Материал из DRKB

Сортировка строк в MEMO[править | править код]

procedure TForm1.Button3Click(Sender: TObject);
var
  t: TStringList;
begin
  // создаем
  t := TStringList.Create;
  // присваиваем переменной t строки из Memo
  t.AddStrings(memo1.lines);
  // сортируем
  t.Sort;
  memo1.Clear;
  // присваиваем memo уже отсортированные строки
  memo1.Lines.AddStrings(t);
end;


Source: http://delphiworld.narod.ru/
ID: 01011