delphi 删除字符串重复的符号只保留一个

本文整理自网络，侵删。

 
aaaa           0.1
bbbbb         1.23
asdfadf      1254
=====================
想把上面的字符串变成之间只有一个空格：
aaaa 0.1
bbbbb 1.23
asdfadf 1254


//删除字符串重复的符号
function StrPosCount(subs:string;source:string):integer;
var
Str : string;
begin
Result := 0;
str := source;
while Pos(Subs,Str)<>0 do
begin
Delete(Str,Pos(Subs,Str),Length(Subs));
Inc(Result);
end;

end;

function StrPosCount2(subs:string;source:string):string;
var
Str : string;
begin
Result :='';
str := source;
while Pos(Subs,Str)<>0 do
begin
if StrPosCount(Subs,Str)=1 then break; //关键的地方在这里
Delete(Str,Pos(Subs,Str),Length(Subs));
Result:=Str;
end;
end;

调用方法：StrPosCount2('=',str1);
 

相关阅读 >>

Delphi abort 用法

Delphi 根据年份获取年干支

Delphi多线程学习：多线程数据库查询（ado）

Delphi用api设置定时器

Delphi 判断文件是否存在

Delphi 在firemonkey应用程序中设置application.title

Delphi向当前窗口模拟键盘ctrl+v发送"粘贴"

pos、ansipos、fillchar在Delphi2010中unicode的问题

Delphi firedac 下的 sqlite [1] - 前言

Delphi 18位身份证号码的校验

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

转载请注明出处：木庄网络博客 » delphi 删除字符串重复的符号只保留一个