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 关闭指定窗口

Delphi idftp 使用被动连接

Delphi dbgrid 表格自适应宽度

Delphi 通过读取注册表信息获取桌面路径

Delphi getprocessmemoryinfo获取进程占用内存大小

Delphi.about.com一个钩子的实现代码

Delphi tstylemanager读取vsf皮肤文件信息

Delphi 调用clipboard 收集剪切板信息

Delphi 设置打印机 纸张大小! 也可以获取纸张大小

Delphi 判断 文本文件 utf-8 bom头

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



打赏

取消

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

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

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

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

评论

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