大家好！如何把一个文本重新整理排列？

Question

比如说这样：123
156
789
156
456
564整理过后:123;156;789;
156;456;564;还望哪位大哥能帮忙一下，谢谢了哈!!!

Answer 1

创建一个空白窗体，上面再创建两个 TMemo（mmo1、mmo2）和一个 TButton（btn1），双击 btn1，用下面的代码：function FormatStr(Str: string; iMax: Cardinal): string;
var
  Strs: TStringList;
  I: Integer;
  J: Integer;
begin
  Strs := TStringList.Create;
  try
    Strs.Text := Str;
    Str := '';
    for I := 0 to Strs.Count - 1 do
    begin
      Str := Str + Strs[I] + ';';
      if ((I + 1) mod iMax) = 0 then
      begin
        if Result = '' then        
          Result := Str
        else         
          Result := Result + #13#10 + Str;          
        Str := '';
      end;
    end;
    if Str <> '' then
      Result := Result + #13#10 + Str;
  finally
    Strs.Free;
  end;
end;procedure TForm1.btn1Click(Sender: TObject);
begin
  { 每行 2 个 }
  mmo2.Lines.Add(FormatStr(mmo1.Lines.Text, 2));
  mmo2.Lines.Add('------------------------------');  
  { 每行 3 个 }
  mmo2.Lines.Add(FormatStr(mmo1.Lines.Text, 3));  
  mmo2.Lines.Add('------------------------------');  
  { 每行 4 个 }
  mmo2.Lines.Add(FormatStr(mmo1.Lines.Text, 4));
  mmo2.Lines.Add('------------------------------'); 
  { 每行 5 个 }
  mmo2.Lines.Add(FormatStr(mmo1.Lines.Text, 5));   
end;运行时，将整理前的字符串粘贴在 mmo1 中，然后点击 btn1 开始整理。

Answer 2

局部变量 J: Integer; 可以不要，忘了删除了。