Сортировка строк в MEMO
Falk0ner, вс, 06/07/2008 - 15:34.
Сортировка строк в 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;
var
t: TStringList;
begin
// создаем
t:=TStringList.Create;
// присваиваем переменной t строки из Memo
t.AddStrings(memo1.lines);
// сортируем
t.Sort;
memo1.Clear;
// присваиваем memo уже отсортированные строки
memo1.Lines.AddStrings(t);
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий