Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

Memo   Найти похожие ветки 

← →
Буги Буги   (2005-09-30 01:54) [0]

Помогите с задачейю. Надо упорядочить по алфавиту из Memo1 в Memo2

---

← →
GanibalLector ©   (2005-09-30 02:47) [1]


var  List:TStringList;
begin
 List:=TStringList.Create;
 try
   List.AddStrings(Memo1.Lines);
   List.Sort;
   Memo2.Lines:=List;
 finally
   List.Free;
 end;
end;


---

Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.03 c