Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

ListView Знайти схожі гілки


noname:) ©   (2004-11-25 13:46) [0]

Добридень! Як зробити так щоб рядки в ListView додавалися н в кінець а в початок?
Тобто ні:
строка1
строка2
строка3
а:
строка3
строка2
строка1
Спасибо!



begin...end ©   (2004-11-25 13:48) [1]

TListView.Items.Insert ()



noname:) ©   (2004-11-25 14:07) [2]

Ну і? Мені треба, наприклад, ро натисканні кнопки додавати в ListView1 рядок з часом.

було
li: TListItem;
починати
li: = ListView1.Items.Add;
li.Caption: = TimeToStr (Time);

виходить
13: 06
13: 10
13: 16
13: 20
а треба
13: 20
13: 16
13: 10
13: 06



begin...end ©   (2004-11-25 14:10) [3]


> [2] noname :) © (25.11.04 14: 07)

ListView1.Items.Insert (0) .Caption: = TimeToStr (Time)



REA   (2004-11-25 14:11) [4]

У реченні TListView.Items.Insert () ключове слово Insert



Ken   (2004-11-25 14:11) [5]

тобі вже написали:
Використовуй TListView.Items.Insert ()

TListView.Items.Insert (TListView.Items.Count, "newitem");



Ken   (2004-11-25 14:12) [6]

сорі просто TListView.Items.Insert (0, "newitem");



noname:) ©   (2004-11-25 14:27) [7]

Спасибі за допомогу!!! :)



noname:) ©   (2004-11-25 15:06) [8]

Ще питання виникло. А якщо у мене 3 колонки, наприклад, Час, Статус і Кому. Тоді як зробити?
Робив так:

MessageW: = WideString (AMessage);
ToComputerW: = WideString (AToComputer);
FromComp: = WideString (AFromComputer);
Result: = NetMessageBufferSend (0, PWideChar (ToComputerW), PWideChar (FromComp),
PWideChar (MessageW), Length (MessageW) * SizeOf (WideChar));
if result = noerror then begin
Form4.StatusBar1.Panels.Items [0] .Text: = "Message send to" + ToComputerW + "succesfull!";
li: = Form4.ListView1.Items.Add;
li.Caption: = TimeToStr (Time);
li.ImageIndex: = 0;
li.SubItems.Add ( "OK");
li.SubItems.Add (ToComputerW);
end
else begin Form4.StatusBar1.Panels.Items [0] .Text: = "Error sending message to" + ToComputerW + "!";
li: = Form4.ListView1.Items.Add;
li.Caption: = TimeToStr (Time);
li.ImageIndex: = 1;
li.SubItems.Add ( "Error");
li.SubItems.Add (ToComputerW);
end;
в кінці кінців
FreeLibrary (NetApi32);
end;

А як це зробити з Insert () ???



noname:) ©   (2004-11-25 15:09) [9]

Ще питання виникло. А якщо у мене 3 колонки, наприклад, Час, Статус і Кому. Тоді як зробити?
Робив так:

MessageW: = WideString (AMessage);
ToComputerW: = WideString (AToComputer);
FromComp: = WideString (AFromComputer);
Result: = NetMessageBufferSend (0, PWideChar (ToComputerW), PWideChar (FromComp),
PWideChar (MessageW), Length (MessageW) * SizeOf (WideChar));
if result = noerror then begin
Form4.StatusBar1.Panels.Items [0] .Text: = "Message send to" + ToComputerW + "succesfull!";
li: = Form4.ListView1.Items.Add;
li.Caption: = TimeToStr (Time);
li.ImageIndex: = 0;
li.SubItems.Add ( "OK");
li.SubItems.Add (ToComputerW);
end
else begin Form4.StatusBar1.Panels.Items [0] .Text: = "Error sending message to" + ToComputerW + "!";
li: = Form4.ListView1.Items.Add;
li.Caption: = TimeToStr (Time);
li.ImageIndex: = 1;
li.SubItems.Add ( "Error");
li.SubItems.Add (ToComputerW);
end;
в кінці кінців
FreeLibrary (NetApi32);
end;

А як це зробити з Insert () ???



begin...end ©   (2004-11-25 15:09) [10]


> [8] noname :) © (25.11.04 15: 06)

було
LI: TListItem;

починати
LI: = ListView1.Items.Insert (0);
with LI do
begin
Caption: = TimeToStr (Time);
ImageIndex: = 0;
SubItems.Add ( "OK");
SubItems.Add (ToComputerW)
end
end.



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.59 MB
Час: 0.104 c
14-1100870142
Плов
2004-11-19 16:15
2004.12.12
Де дістати голосовий профіль для української мови?


1-1101717269
дерево
2004-11-29 11:34
2004.12.12
Пошук фрагмента тексту в Memo і виділення його.


14-1101208425
ІМХО
2004-11-23 14:13
2004.12.12
Україна!


1-1101736096
oxffff
2004-11-29 16:48
2004.12.12
Програмування многопоточности. Мої граблі.


14-1101007383
Александр1
2004-11-21 06:23
2004.12.12
Глюк windows 2003





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська