Помогите с кодом

[RU_KIT]

Помогите разобраться с сортировкой, из листвью1 - добавить людей в листвью2 в строку такого вида 1Имя Фамилия 2Имя Фамилия Бригада1
То есть из выбранных людей собрать бригады скрин...12.jpg
и сам исходник Новая папка.rar помогите подправить что то я не то с листвьюшками делаю

вот как сейчас

var
i : integer;
L : TListItem;
begin

for i:=0 to ListView1.Items.Count-1 do
 if (ListView1.Items[i].Checked) then
 begin
   L:= ListView2.Items.Add;
   L.Caption:= ListView1.Selected.Caption+' '+ListView1.Selected.SubItems[0];           //Имя
   L.SubItems.Add(ListView1.Items[i].Caption+' '+ListView1.Items[i].SubItems[0]);       //Фам
end;
    end;

[vlad1389]

Похоже, Вы не с ListView разобраться не можете, а с циклами. У Вас разные рабочие попадают в разные ветки цикла, и для каждого цикл создаёт новый Item, когда нужно создавать один Item на пару рабочих, если я верно понял идею. Проверяйте содержимое второго листа в цикле, чтоб понять, куда заносить данные.
P.S. "рабочий", а не "рбочий".
ListView1.Items[i].Checked// "чекнутый" айтем
ListView1.Selected// выделенный айтем. Зачем Вам выделенный, если вы работаете с "чекнутыми"?

[RU_KIT]

Я пробовал по разному просто с листвью впервые сталкиваюсь. Просто очень нужно и за ошибку "рбочий" отдельно извиняюсь. Вы думаете мне нужно создать несколько циклов. Покажите как прошу 2й день ломаю голову

[vlad1389]

Нет. Несколько циклов создавать не нужно. Одного достаточно. для начала вынесите

L:= ListView2.Items.Add;

За тело цикла, так как этот код нужно выполнять единожды для вашего случая. Дальше посмотрите что получится, и попробуйте дописать самостоятельно.

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

[RU_KIT]

if ListView1.Selected.Caption = '' then exit else
  N:= Copy(ListView1.Selected.Caption, 1, length(ListView1.Selected.Caption));
  F:= Copy(ListView1.Selected.SubItems[0], 1, length(ListView1.Selected.SubItems[0]));
  result:= N +' '+F ;  // имя фамилия
  begin
      L:= ListView2.Items.Add;
      L.Caption:= result;
      L.SubItems.Add(''); // 2 колонка
      L.SubItems.Add('Бригада'{+IntToStr(x)}); // 3 колонка пока не использую

вот так сделал но так получаю Имя+Фамилия в 1ю колонку ListView2 а в SubItems не могу сделать тоже самое так как будет копироваться то что в первой колонке ListView2. Можно сделать и по другому, просто я не знаю всех тонкостей ListView

я первоначально хотел сделать с drag&drop но не знаю как поместить в нужную колонку и ячейку от LV

[vlad1389]

А зачем циклы убрали? Вы должны в цикле пройтись по всем айтемам первого листа. Если айтем чекнут создаёте во втором листе новый айтем

L:= ListView2.Items.Add;

Но создавая, проверяйте, не создали ли вы его в предыдущем витке цикла

if L = nil// если L не создан

Таким образом вы исключите создание лишних айтемов. Кроме того, проверяя айтем на NIL если айтем уже создан

if L <> nil

значит в предыдущем витке цикла вы его создали, и по логике положили в caption первого рабочего. Соответственно это уже второй рабочий, и кладём его в субайтем. Итого

if L = nil then
  begin 
    Это первый рабочий. Создаём айтем, и кладём в caption данные
  end else
  begin
   Это второй рабочий. Айтем уже создали для первого рабочего. Заполняем субайтем уже созданного L
  end;

Ваш первый код частично верен. Нужно доработать его условиями, чтоб исключить ненужные дубли кода внутри цикла.
Да, и зачем вы используете Selected? Вы работаете с чекнутыми строками, а не с выделенными.

[RU_KIT]

Да исключение помогло vlad1389 спасибо большое..
вот рабочий пример

var
L : TListItem;
i :integer;
n,f : String;
result :string;
begin

 for I:= 0 to ListView1.Items.Count-1 do
   if (ListView1.Items[i].Checked)= true then

   begin
   N:= ListView1.Items.Item[I].Caption;
   F:= ListView1.Items.Item[I].SubItems.Strings[0];

   Result:= N +' '+F ;  

if L = nil then
  begin
  L:= ListView2.Items.Add;
  L.Caption:= Result; 
  end else
  begin
   L.SubItems.Add(Result);
  end;
      end;
        end;

[vlad1389]

Если не хотите использовать длинные конструкции в коде, то не обязательно создавать множество промежуточных переменных. Можно поступить так.

with ListView1.Items[I] do
  begin
    result := Caption + SubItems[0];
  end;

или

with ListView1.Items[I] do
  result := Caption + SubItems[0];

Итого минус две переменные, а код стал ещё стройнее.

[RU_KIT]

Да очень даже стройный, но все равно пробелы ставить. Еще раз спасибо большое!