Fórum Adicionando itens em massa no ListView - Através de Memo separado por barras #585930

procedure TFrmAdicionarVarios.BtnAdicionarTudoClick(Sender: TObject);
var
  MemoLine, Separator: string;
  i, SeparatorPos: Integer;
begin
//Define a variável Separator com o separador escolhido
  case RGrpSeparador.ItemIndex of
  0:  Separator := #9; {Separado por Tabulações}
  1:  Separator := ';';
  2:  Separator := '/';
  3:  Separator := '|';
  4:  Separator := EdtSeparator.Text; {Outro: Separador digitado no Edit}
  end;


  FrmMain.LstvTemplates.Items.BeginUpdate;
  try
    //Percorre linhas do Memo;
    for i := 0 to MmAdicionarVarios.Lines.Count-1 do
    begin
      //Armazena cada linha do Memo na variável MemoLine;
      MemoLine := MmAdicionarVarios.Lines[i];

      // Pra cada linha do Memo, cria um item/linha na ListView;
      ListItem := FrmMain.LstvTemplates.Items.Add;

      //Pega a posição do separador escolhido na linha armazenada;
      SeparatorPos := Pos(Separator, MemoLine);

      // Se tiver separador, procede assim
      if (SeparatorPos > 1) then
        begin
        //Copia o valor desde o início da string até a posição do separador - 1;
        ListItem.Caption := Copy(MemoLine, 1, SeparatorPos - 1);

        // Apaga o conteúdo copiado e inserido na ListView;
        Delete(MemoLine, 1, SeparatorPos);

        // Adiciona o restante da string na segunda coluna da ListView;
        ListItem.SubItems.Add(Copy(MemoLine, 1, SeparatorPos - 1));
        end
      else
        begin
        // Se não tem separador, apenas insere a linha do Memo na ListView;
        ListItem.Caption := MemoLine;
        end;
    end;
  finally
    FrmMain.LstvTemplates.Items.EndUpdate;
  end;