Головна сторінка
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.58 MB
Час: 0.05 c
14-1101233171
Igorek
2004-11-23 21:06
2004.12.12
Згадаймо В.Цоя


9-1092393665
kas-t
2004-08-13 14:41
2004.12.12
[GLScene]: Проблеми з GLFullScreenViewer


1-1101580866
Точка
2004-11-27 21:41
2004.12.12
Динаміка


3-1100438650
Alenka_gal
2004-11-14 16:24
2004.12.12
Як реалізувати пошук по тексту


6-1096286797
andrey__
2004-09-27 16:06
2004.12.12
модем. зв'язок між 2-ма комп'ютерами (її автоматизація)





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