Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > быстро перенести список из tlistbox в tlistview

Автор: five 23.8.2002, 22:47

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

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

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

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

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

Автор: Baa 24.8.2002, 16:09

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;

Автор: Song 24.8.2002, 16:51

listview.items.assign(tstr.items);