如何将数据集数据按10条分块存入TStringList？

方法一：读取数据时实时分块 #

这种方式无需先存储所有UID，边读数据边分组，适合大数据集场景，节省内存开销。

const
  CHUNK_SIZE = 10;
var
  List: TStringList;
  Q: TDataSet;
  UID: TField;
  CurrentChunk: string;
  ChunkCount: Integer;
begin
  List := TStringList.Create;
  try
    Q.Open;
    try
      CurrentChunk := '';
      ChunkCount := 0;
      while not Q.EOF do
      begin
        UID := Q.FieldByName('U_ID');
        // 拼接当前块的UID，非第一个元素前加逗号
        if ChunkCount > 0 then
          CurrentChunk := CurrentChunk + ',';
        CurrentChunk := CurrentChunk + UID.AsString;
        Inc(ChunkCount);
        
        // 达到块大小，将当前块加入List并重置临时变量
        if ChunkCount = CHUNK_SIZE then
        begin
          List.Add(CurrentChunk);
          CurrentChunk := '';
          ChunkCount := 0;
        end;
        Q.Next;
      end;
      // 处理剩余不足10条的记录
      if ChunkCount > 0 then
        List.Add(CurrentChunk);
    finally
      Q.Close;
    end;
    // 此时List即为分块结果：List.Count=3，每个元素是对应块的UID逗号拼接字符串
  finally
    List.Free;
    // 注意：若Q是外部传入的对象，不要在此FreeAndNil，由创建者负责释放
  end;
end;

方法二：读取所有数据后再分块 #

如果已经将所有UID读取到了一个TStringList中，可以通过遍历该列表完成分块：

const
  CHUNK_SIZE = 10;
var
  OriginalList: TStringList;
  ResultList: TStringList;
  I, StartIdx: Integer;
  CurrentChunk: string;
begin
  OriginalList := TStringList.Create;
  ResultList := TStringList.Create;
  try
    // 先读取所有UID到OriginalList（复用你原有的读取逻辑）
    Q.Open;
    try
      while not Q.EOF do
      begin
        OriginalList.Add(Q.FieldByName('U_ID').AsString);
        Q.Next;
      end;
    finally
      Q.Close;
    end;

    // 遍历原列表进行分块
    StartIdx := 0;
    while StartIdx < OriginalList.Count do
    begin
      CurrentChunk := '';
      // 处理当前块的所有元素，最多取CHUNK_SIZE个
      for I := StartIdx to Min(StartIdx + CHUNK_SIZE - 1, OriginalList.Count - 1) do
      begin
        if I > StartIdx then
          CurrentChunk := CurrentChunk + ',';
        CurrentChunk := CurrentChunk + OriginalList[I];
      end;
      ResultList.Add(CurrentChunk);
      Inc(StartIdx, CHUNK_SIZE);
    end;

    // ResultList即为最终分块结果
  finally
    OriginalList.Free;
    ResultList.Free;
  end;
end;

原代码问题分析 #

你之前使用Insert的逻辑存在错误：每次判断List.Count <=10时，会把整个List的所有UID作为一个块插入到MaxList，而非当前的10条；当List元素超过10后，又重复插入全量数据，导致结果完全不符合分块要求。

无需使用TStringList数组，单个TStringList即可满足需求——每个元素对应一个分块的UID拼接字符串。

内容的提问来源于stack exchange，提问作者Tonathiu Redrovan