VPF::быстро перенести список из tlistbox в tlistview

five

Дата 23.8.2002, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 14.6.2002

Репутация: нет
Всего: нет

пробовал так:

var
tstr:tlistbox;
begin
// tstr заполняется

listview.assing(tstr); - не катит
listview.items.assign(tstr); - тоже не катит

делать цикл? или есть какое-то другое решение?

заранее спасибо.

Baa

Дата 24.8.2002, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

procedure TForm1.Button1Click(Sender: TObject);
var
ListItem: TListItem;
I: Integer;
begin
for I := 0 to ListBox1.Items.Count-1 do
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := ListBox1.Items.Strings [I];
ListView1.Items.AddItem(ListItem);
end;
end;

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Song

Дата 24.8.2002, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

listview.items.assign(tstr.items);

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »