Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
Вниз
Как руками создать 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c
