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);
 

相关阅读 >>

Delphi7判断字符是否是数字

Delphi中message消息的使用方法

Delphi使用tclientdataset时不携带midas.dll的方法

如何用Delphi实现windows xp中“本地连接”的启用和禁用

Delphi 调用api.ocr.space的ocr接口

Delphi tms web core直接从html&css设计的页面布局

Delphi检测android mock位置

Delphi识别android设备的电池电量

Delphi 动态设置屏幕分辨率

Delphi winapi: movewindow - 改变窗口的位置与大小

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

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