Скачать: CL | DM;

Как руками создать TMemo и/или отсортировать в нём записи(строки)   Найти похожие ветки 

← →
Demon[eXp]   (2002-06-04 17:01) [0]

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

---

← →
MBo ©   (2002-06-04 17:06) [1]

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

---

← →
Demon[eXp]   (2002-06-04 17:35) [2]

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

---

← →
Demon[eXp]   (2002-06-04 17:44) [3]

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

---

← →
MBo ©   (2002-06-04 17:49) [4]

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:54) [5]

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

---

← →
MBo ©   (2002-06-04 18:01) [6]

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

---

← →
yozhik   (2002-06-04 18:19) [7]

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;

---

← →
Song ©   (2002-06-04 18:52) [8]

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

---

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

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

---

← →
Song ©   (2002-06-05 09:52) [10]

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

---

← →
yozhik   (2002-06-05 10:37) [11]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c