Сортировка строк в 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