Delphi 文本行根据设置值排序算法

方法1：

procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  LineCount,AStep:Integer;
begin
  Memo2.Clear;
  LineCount := StrToInt(Edit1.Text);
  for I:=0 to  LineCount-1 do
  begin
    Memo2.Lines.Add(Memo1.Lines[I]);
    AStep := I+LineCount;
    while AStep<Memo1.Lines.Count do
    begin
      Memo2.Lines[I] := Memo2.Lines[I] + ','+Memo1.Lines[AStep];
      Inc(AStep,LineCount);
    end;
  end;
end;

方法2：

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, iR: DWORD;
  s: string;
begin
  Memo2.Lines.Clear;
  iR := strtoint(Edit1.Text);
  if iR <> 1 then
  begin

    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      j := i mod iR;
      s := Memo2.Lines.Strings[j];
      if Memo2.Lines.Count <= j then
      begin
        Memo2.Lines.Add('');
      end;

      if s.IsEmpty then
      begin
        Memo2.Lines.Strings[j] := Memo1.Lines.Strings[i];
      end
      else
      begin
        Memo2.Lines.Strings[j] := s + ',' + Memo1.Lines.Strings[i];
      end;
      Application.ProcessMessages;
    end;
  end
  else
  begin
    Memo2.Lines := Memo1.Lines;
  end;

end;