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 提取网页源文件纯文本函数

Delphi清空回收站

Delphi中禁止webbrowser右键的方法

Delphi拖动窗体超简单实现

Delphi android 保持唤醒状态

Delphi tms web core 在线pdf教程

Delphi application.restore; 简单用法

Delphi 如何编写需要启动参数的Delphi程序

Delphi findfiles获取目录下所有文件

Delphi 下载者源代码

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

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