| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сортировка строк в Memo [D5]
Yuraz © (2002-03-25 09:49:00)Подскажите, как перенести строки из Memo1 в Memo2 в отсортированном порядке, по алфавиту?
Yuraz (2002-03-25 12:44:00) [1]Alx2 спасибо! И всем кто ответил!
Alx2 (2002-03-25 10:26:00) [2]Mbo сказал то же самое :)
Нужно только поправить
SList.Assign( Memo1.Lines);
....
Memo2.Lines.Assign(SList);
Alx2 (2002-03-25 10:20:00) [3]procedure TDemoForm.SortBtnClick(Sender: TObject);
Var SList : TStringList;
begin
SList := TStringList.Create;
try
SList.Assign(Memo.Lines);
SList.Sort;
Memo.Lines.Assign(SList);
finally
SList.Free;
end;
end;
aus (2002-03-25 09:58:00) [4]Строки в мемо - обычный масcив строк (TStringList), сортируй его, используя любой алгоритм сортировки массивов.
Кстати, для строк можно использовать операции сравнения < или >.
MBo (2002-03-25 09:57:00) [5]проще всего через промежуточный TStringList
| |
