Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизСортировка строк в Memo Найти похожие ветки
← →
Yuraz (2002-03-25 09:49) [0]Подскажите, как перенести строки из Memo1 в Memo2 в отсортированном порядке, по алфавиту?
← →
MBo (2002-03-25 09:57) [1]проще всего через промежуточный TStringList
← →
aus (2002-03-25 09:58) [2]Строки в мемо - обычный масcив строк (TStringList), сортируй его, используя любой алгоритм сортировки массивов.
Кстати, для строк можно использовать операции сравнения < или >.
← →
Alx2 (2002-03-25 10:20) [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;
← →
Alx2 (2002-03-25 10:26) [4]Mbo сказал то же самое :)
Нужно только поправить
SList.Assign( Memo1.Lines);
....
Memo2.Lines.Assign(SList);
← →
Yuraz (2002-03-25 12:44) [5]Alx2 спасибо! И всем кто ответил!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c