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

Код
procedure TMainForm.btRunClick(Sender: TObject);
var
  sNIP: String;
  i : Integer;
begin

  // Вывод в ListView
  for I := 0 to 2 do
  begin
    sNIP := sNIP + 'X'+ #13#10 + IntToStr(I) + #13#10 + IntToStr(I) + #13#10#13#10;
  end;

  slNIP.LineBreak := #13#10#13#10;
  slNIP.Text := sNIP;
  lv.AllocBy := slNIP.Count;

end;

procedure TMainForm.lvData(Sender: TObject; Item: TListItem);
var
  i:Integer;
  LsTempList: TStringList;
begin

  try
    try
      LsTempList := TStringList.Create;
      LsTempList.Text := slNIP[Item.Index];
      Item.Caption := LsTempList[0];
      for i := 1 to LsTempList.Count-1 do
        Item.SubItems.Add(LsTempList[i]);
    finally
      FreeAndNil(LsTempList);
    end;
  except
  end;

end;