5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
newyj 2002-08-31
- 打赏
- 举报
edit2.text := StringReplace(edit1.text,' ','',[rfReplaceAll]);
可以去掉所有空格
请大家去 http://www.new7wonders.com/c/voting.php 投长城一票
可以去掉所有空格
请大家去 http://www.new7wonders.com/c/voting.php 投长城一票
lqdmafeng 2002-08-31
- 打赏
- 举报
trim
hacking 2002-08-31
- 打赏
- 举报
引用SysUtils单元
NEWSTRING：=TRIM（OLDSTRING）//两边去空格
NEWSTRING：=TRIMRIGHT（OLDSTRING）
NEWSTRING：=TRIMLEFT（OLDSTRING）
NEWSTRING：=TRIM（OLDSTRING）//两边去空格
NEWSTRING：=TRIMRIGHT（OLDSTRING）
NEWSTRING：=TRIMLEFT（OLDSTRING）
爱编程的老五 2002-08-31
- 打赏
- 举报
如下:
while pos(' ',s) <> 0 do
s := copy(s,1, pos(' ',s) - 1) + copy(s, pos(' ',s) + 1, length(s));
while pos(' ',s) <> 0 do
s := copy(s,1, pos(' ',s) - 1) + copy(s, pos(' ',s) + 1, length(s));
dearplumlxh 2002-08-31
- 打赏
- 举报
自己编写函数吧，好像没有现成的函数，将字符串中的字符取出来一个一个的分析，如果是空格那么就删掉。
Michaelyfj 2002-08-31
- 打赏
- 举报
str : string;
beign
str := '';
for i := 1 to length(s) do
begin
if trim(s[i])<>'' then str := str + s[i];
end;
end;
