delphi N个字符串替换成1个字符串


本文整理自网络,侵删。

 function ReplaceNCharToOneChar(S: string; AChar: Char): string;
var
  SubStr: string;
begin
  SubStr := AChar + AChar;
  while Pos(SubStr, S) > 0 do
  begin
    S := StringReplace(S, SubStr, AChar, [rfReplaceAll, rfIgnoreCase]);
  end;
  Result := S;

end;

 

//文本处理: AAAA.. .替换为A

调用:

procedure TForm2.Button1Click(Sender: TObject);

var

vList :TStringList ;

i: integer ;

ALine:string ;

AChar:Char;

CharLocal: Integer ;

begin

//文本处理: AAAA.. .替换为A

vList:=TstringList.Create ;

AChar:=' ';

try

vList.setstrings(Memo1.Lines);

for i:=0 to vList.Count-1 do

begin

ALine := vList.Strings[i];

ALine := ReplaceNCharToOneChar(ALine, AChar);

vList. strings[i] := StringReplace(ALine, ' ', '=', [rfReplaceAll, rfIgnoreCase]);

end ;

Memo2.Lines :=vList ;

finally

vList. Free ;

end ;

end;

 

来源:http://www.xuexidashi.vip/

相关阅读 >>

Delphi如何删除数据库重复记录(4种方法)

Delphi根据窗口句柄获取所在程序路径

Delphi 下载并运行的代码

Delphi 设置本地系统时间

字符串提取算法

Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例

Delphi 获取unixtime

Delphi窗体固定在桌面上

Delphi firedac压缩和修复ms access数据库

Delphi richedit选中文字右键菜单的实现

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...