![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Beowulf 13th |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Репутация: ![]() ![]() ![]() |
Есть список. List: TListView.
В него слямзенной функцией добавляем из нескольких полей текст. Добавляет очень криво. В Item он добавляет сначала пустую строку потом на следующей введенный текст, а в SubItem наоборот. Что делать не понятно О_О Заранее спасибо. Код procedure TForm1.bbAddClick(Sender: TObject); var ListItem : TListItem; begin ListItem := List.Items.Add; List.AddItem(edLastName.Text, pointer(edLastName.Text)); ListItem.SubItems.Add(edName.Text); ListItem.SubItems.Add(edOtch.Text); ListItem.SubItems.Add(edPhone.Text); ListItem.SubItems.Add(edAddress.Text); ListItem.SubItems.Add(cbDate.Text + ' ' + cbMounth.Text + ' ' + edYear.Text); ListItem.SubItems.Add(edNotes.Text); end; |
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 14:15 |