VPF::Данные из ListView в Memo - Форум программистов

ivanfr

Дата 23.4.2009, 15:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте.
Как можно данные из ListView в Memo закинуть. В общем делаю следующим образом код ниже. Как я понял ListViewItems.Caption хранит первый столбец, а все остальное в ListViewItems.SubItems.GetText;
так вот, если как я делаю Memo1.Lines.Add(ListViewItems.Caption); а все остальные столбцы(ListViewItems.SubItems.GetText); хранят данные через два символа ||.А позволяет ListView сделать так чтобы данные из него извлекались как добавляются, то есть subitems.add и пошёл заполнять, а извлекать так можно или нужно писать свой цикл и обработку символов ставить.

Код


var
i:integer;
 ListViewItems : TListItem;
// ListViewColumn: TListColumn;
begin
ListView1.Items.Clear;
for i:=0 to 10 do
  begin // Заполняем всякой бякой ListView 
   ListViewItems:=ListView1.Items.Add;
   ListViewItems.Caption:='12';
   // ListViewItems.Caption:='';
   ListViewItems.subitems.add(inttostr(random(i+1)*random(i+1)));
   ListViewItems.subitems.add(inttostr(random(i+1)*random(i+1)));
   ListViewItems.SubItems.Add('Привет!');
   ListViewItems.SubItems.Add('Привет!'+'Описание');
   ListViewItems.SubItems.Add('Привет!'+'Рекомендация');
   ListViewItems.SubItems.Add(chr(71+random(2*i))+chr(71+random(2*i))+chr(71+random(2*i)));
  end;

end;

procedure TForm1Form.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
var
 i :integer;
 ListViewItems : TListItem;
// ListViewColumn: TListColumn;
begin
i:=0;
i:=ListView1.ItemIndex;
for i := 0 to ListView1.Items.Count-1 do
   if ListView1.Items[i].Selected
     then
         begin
             Memo1.Lines.Add(ListViewItems.Caption); 
             ListViewItems.SubItems.GetText;
         end;

end;

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