StringReplace(Source, Tag String , replace String, Option)
解决方案 »
- []如何检查pointer是不是指向某一种类型
- 多个子类继承同一基类,统一创建子对象的问题?
- 关于Access 双精度数据类型小数点位数保留问题!!!!~~~
- 怎样得到系统日期和时间?
- listbox里面怎样显示含有格式的文本?或者有没有控件能做这件事?
- 急急急求能在WIN2000+D6下正确运行的多点接受自动化服务器事件源码.
- delphi时间处理,急、急、急高分相送!!!
- 利用 adoquery 连接到 vfp 数据库,运行“selec * into dbf tbname from table” 语句没反应
- 应用程序移植时的动态连接文件问题。
- 在win2k中,如何禁用 左边ctrl+space 激活输入法,但保持右边ctrl+space激活?
- 哪位大侠知道ReportBuilder Enterprise 6.02 for Delphi 密码?
- SQL查询问题!
begin
S := ' lkadjsf lkasjlfajwlef';
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := ' ';
end;
String1:=StringReplace(String1, ' ' , ' ', rfReplaceAll);rfReplaceAll参数表示全部替换。
然后遍历一遍,如果为空就替换
Str1:String;
begin
StrReplase(str1,' ',' ')
end.别忘了给分!