Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 спасибо! И всем кто ответил!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
4-9688            MJH                   2002-02-03 13:44  2002.04.04  
COMBOBOX


1-9564            Sound                 2002-03-23 17:52  2002.04.04  
Как передать данные из одной формы в другую?


1-9557            olookin               2002-03-24 15:21  2002.04.04  
TChart иногда ведет себя странно


4-9671            Дмитрий Д.            2002-01-30 07:20  2002.04.04  
необходимо отследить какие файлы были измненены или созданы


14-9624           Blackweber            2002-02-08 01:16  2002.04.04  
Вы все про пиво, да про пиво. А помочь не хотите?