Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.006 c
14-55294
iva
2002-05-08 11:17
2002.06.17
WinAPI + MSDN + MS SDK + MS DDK


3-55030
VikOs
2002-05-23 14:23
2002.06.17
Перекачка


3-55015
nimble
2002-05-23 09:22
2002.06.17
DirectMySQL


14-55298
Malder
2002-05-14 23:05
2002.06.17
Об UBPFD


14-55317
Dima Dubovik
2002-05-17 02:25
2002.06.17
Народ, кто знает где можно найти компоненты, модули(ДЕЛФИ)?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский