delphi 批量给每个字符加括号

本文整理自网络，侵删。

 


方法1
procedure TForm1.Button1Click(Sender: TObject);
const
  iStep = 2;
var
  Idx: integer;
begin
  for Idx :=0 to Length(Memo1.Lines.Text)div iStep do
    Memo2.Lines.Add('【'+Memo1.Lines.Text.Substring(Idx*iStep, iStep)+'】');
end;

方法2


procedure TForm1.btn1Click(Sender: TObject);
var
  vStr:string;
  i,iLen:integer;
  iStep:Integer;
  tempStr:String;
  Remainder :Integer;
begin
   Memo1.Lines.Clear;
   vStr := Edit1.Text;
   iLen := Length(vStr);
   iStep := 3;
   Remainder := iLen mod iStep;
   for i := 0 to (iLen div iStep)-1 do
   begin
     tempStr :='【' + MidStr(vStr, i*iStep +1, iStep)+'】';
     memo1.Lines.Add(tempStr) ;
   end;
   if Remainder<>0 then
   begin
     tempStr :='【' + MidStr(vStr, i*iStep +1, remainder)+'】';
     memo1.Lines.Add(tempStr) ;
   end;
end;



方法3

var
  lStr:string;
  i,iLen:integer;
  iStep:Integer;
  tempStr:String;
begin
   Memo2.Lines.Clear;
   lStr := Edit1.Text;
   iLen := Length(lStr);
   iStep := 2;
   for i := 1 to iLen do
   begin
     //代表开始
     if (i mod 2)=1 then
     begin
       tempStr := '【'+lStr[i];
       if i=iLen then //代表最后一个只有开始没有结束
       begin
         tempStr := tempStr+'】';
         Memo2.Lines.Add(tempStr);
       end;
     end;
     //代表结束
     if (i mod 2)=0 then
     begin
        tempStr :=tempStr+lStr[i]+ '】';
        Memo2.Lines.Add(tempStr);
     end;
   end;
end;
 

相关阅读 >>

Delphi memo 滚动条 自动滚到最后一行

Delphi原生方法取得文件的md5

Delphi中查找进程及强行结束进程的方法

Delphi开发的app如何调用外部app

Delphi 跨平台的，在fmx中读取icon文件的每一帧到bitmap

Delphi 获取ie7 ie8 ie9 地址栏网址

Delphi 获取鼠标坐标大全方法

Delphi 设置系统默认打印机

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi利用系统时间产生随机数的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 批量给每个字符加括号