| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как руками создать TMemo и/или отсортировать в нём записи(строки) [D5, D6, Win95/98, WinXP]

Demon[eXp] ©   (2002-06-04 17:01:00) 

Как руками создать TMemo и/или отсортировать в нём записи(строки)? Желательно чтоб код был побольше :)

---

yozhik   (2002-06-05 10:37:00) [1]

можно было и StringList, я просто свою ф-цию сортировки массива вариантов преобразовал... поэтому остался array :)

---

Song   (2002-06-05 09:52:00) [2]

Чтобы грамотней было.

---

Новеньки в Делфи   (2002-06-05 01:49:00) [3]

а зачем что бы код был побольше?

---

Song   (2002-06-04 18:52:00) [4]

А TStringList.Sorted слаюо использовать ?

---

yozhik   (2002-06-04 18:19:00) [5]

var aArray=array of string;
procedure Sort;
var i,j,k: byte;
s: string;
Memo: TMemo;
begin
for i:=0 to High(aArray) do
for j:=i+1 to High(aArray) do
begin
k:=1;
while aArray[i][k]=aArray[j][k] do
inc(k);
if aArray[i][k]>=aArray[j][k] then
begin
s := aArray[i];
aArray[i] := aArray[j];
aArray[j] := s;
end;
end;
Memo := TMemo.Create(Self);
with Memo do
begin
Parent := Self;
SetBounds(....);
for i:=0 to High(aArray) do
Lines.Add(aArray[i]);
end;
end;

---

MBo   (2002-06-04 18:01:00) [6]

желательно прочитать хелп про TStringList

---

Demon[eXp]   (2002-06-04 17:54:00) [7]

Хорошо, а можно ли так: создать массив записей, допустим имён, отсортировать их по возрастанию, а потом вывести в TMemo?? Желательно поподробнее!

---

MBo   (2002-06-04 17:49:00) [8]

var memo:tmemo;

memo:=tmemo.create(self);
with memo do begin
parent:=self;
Setbounds(...
...
end;

сортировать он не умеет, пользуйся вспомогательным StringList
или используй Memo.Lines.Exchange c любым методом сортировки

---

Demon[eXp]   (2002-06-04 17:44:00) [9]

Хотя можно и компонент написать.

---

Demon[eXp]   (2002-06-04 17:35:00) [10]

Динамически!

---

MBo   (2002-06-04 17:06:00) [11]

Как руками создать TMemo ????
Динамически создать или самому компонент написать?

---

Наверх