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禁止在android上重复按下按钮

Delphi memo1 高亮行的范围

Delphi捕捉屏幕

Delphi 将整数转换为罗马数字

adoquery 实现获取数据库所有表名

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi spcomm串口控件的例程

Delphi 对话框初始地址initialdir

Delphi webbrowser 加载html 将html代码转换成网页

Delphi inttohex 查看字符的十六进制值

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

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