Listview, подскажите как сварганить

← →
aldis © (2011-04-08 15:49) [0]

Как добавлять в колонки listview данные?
То есть есть колонки Дата и Событие, в Дату пишется число из календаря, в Событие - текст из memo, например надо ввести несколько событий на разные даты:
"08.04.11: Написать на форум
09.04.11: Прочитать ответ"
Form5.Listview1.Items.Add.caption := DateToStr(monthcalendar1.date); form5.ListView1.Items.Item[0].SubItems.add(memo1.text);

Проблема со второй строчкой, что написать вместо Item[0], чтобы последовательно добавляла строки?

← →
Dennis I. Komarov © (2011-04-08 16:17) [1]

TListItem(AnyPointer).SubItems.Add

← →
aldis © (2011-04-08 16:24) [2]

Спасибо, а по-подробней можно объяснить?

← →
RWolf © (2011-04-08 16:42) [3]

> чтобы последовательно добавляла строки?

строки в ListView добавляются методом Add свойства Items.

← →
clickmaker © (2011-04-08 16:43) [4]

> что написать вместо Item[0], чтобы последовательно добавляла
> строки?

добавляла строки куда?
каждая строка - новый элемент листвью или как?

← →
aldis © (2011-04-08 16:49) [5]

> добавляла строки куда?
> каждая строка - новый элемент листвью или как?

Ну да, но из-за того, что там Item[0], то получается только первая строка, а в последующих уже только дата, событие не добавляется. Пыталась через переменную, то есть Item[n], где n:=n+1, но не фига.

← →
Германн © (2011-04-08 16:59) [6]

Подсказка №1
Метод TlistItems.Add на самом деле функция.
Подсказка №2
В справке по этому методу есть пример.

← →
aldis © (2011-04-08 17:06) [7]

У меня нет справки...:( у меня Delphi Studio XE.

← →
clickmaker © (2011-04-08 17:09) [8]

тогда см. подсказку №1 от Германна

← →
_Юрий (2011-04-08 19:11) [9]

<оффтопик>
Я вот сейчас новый для себя язык изучаю, и плаваю во многих вопросах.
Находимые в форумах короткие примеры рещения увличивают эффективность процесса обучения очень существенно, а читание документации - это вещь полезная, но для этого надо иметь уже какой то базовый уровень владения сабжем. Для начинающего нужны именно примеры. Сначала примеры, потом документация.

</оффтопик>

var
Li: TListItem;

brgin
Li := ListView1.Items.Add;
Li.Caption := "Строка 1";
Li.Subitems.Add("строка 2");
Li.Subitems.Add("строка 3");

> aldis © (08.04.11 17:06) [7]

> У меня нет справки...:( у меня Delphi Studio XE.
>

http://docwiki.embarcadero.com/RADStudio/en/Main_Page

← →
clickmaker © (2011-04-08 19:20) [10]

> Li := ListView1.Items.Add;
> Li.Caption := "Строка 1";
> Li.Subitems.Add("строка 2");
> Li.Subitems.Add("строка 3");

это будет не строка, а столбец )

← →
Германн © (2011-04-08 19:54) [11]

> var
> Li: TListItem;
>
> brgin
> Li := ListView1.Items.Add;
> Li.Caption := "Строка 1";
> Li.Subitems.Add("строка 2");
> Li.Subitems.Add("строка 3");
>

На ДМ так некошерно. :)
Надо так
with ListView1.Items.Add do begin Caption := "Строка 1"; Subitems.Add("строка 2"); Subitems.Add("строка 3"); end;

← →
KilkennyCat © (2011-04-08 20:42) [12]

> Германн © (08.04.11 19:54) [11]

неплохо.
использовать функцию в with и пихнуть ей свойства.

> У меня нет справки...:(

Рыдать всем !

> Рыдать всем !

Товарищ, я задала конкретный вопрос, люди мне подсказали пути решения. Если твои знания выше, чем у меня, я за тебя рада, но это не повод стебаться. Карта слезу любит :)

> Юрий (08.04.11 19:11) [9]
> <оффтопик>
> Я вот сейчас новый для себя язык изучаю, и плаваю во многих
> вопросах.
> Находимые в форумах короткие примеры рещения увличивают
> эффективность процесса обучения очень существенно, а читание
> документации - это вещь полезная, но для этого надо иметь
> уже какой то базовый уровень владения сабжем. Для начинающего
> нужны именно примеры. Сначала примеры, потом документация.
>
>
> </оффтопик>
>
> var
> Li: TListItem;
>
> brgin
> Li := ListView1.Items.Add;
> Li.Caption := "Строка 1";
> Li.Subitems.Add("строка 2");
> Li.Subitems.Add("строка 3");
>
>
> > aldis © (08.04.11 17:06) [7]
>
>
> > У меня нет справки...:( у меня Delphi Studio XE.
> >
>
>
> http://docwiki.embarcadero.com/RADStudio/en/Main_Page

Спасибо, Юрий. Вы правы, что справки это отлично, но порой нужен пример перед глазами. Показали ссылку, я сразу нашла что искала и плюс много другого, нужного, полезного.

Еще вопросик - TListItem(AnyPointer).SubItems.Add

AnyPointer - что должно быть обычно?

> var
> Li: TListItem;
>
> brgin
> Li := ListView1.Items.Add;
> Li.Caption := "Строка 1";
> Li.Subitems.Add("строка 2");
> Li.Subitems.Add("строка 3");

Всем спасибо, вот это работает.

> KilkennyCat © (08.04.11 20:42) [12]
>
>
> > Германн © (08.04.11 19:54) [11]
>
> неплохо.
> использовать функцию в with и пихнуть ей свойства.
>

Не понял. Это мне плюс или минус?
:)

> Еще вопросик - TListItem(AnyPointer).SubItems.Add AnyPointer
> - что должно быть обычно?

Указатель на итем, куда надо добавить построку. Т.е. в случае [9] это LI, в случае [11] на него будет ссылаться with

Listview, подскажите как сварганить Найти похожие ветки