自定义函数 怎么实现起来少了点功能(10分)

  • 主题发起人 主题发起人 xhcxhc100
  • 开始时间 开始时间
X

xhcxhc100

Unregistered / Unconfirmed
GUEST, unregistred user!
function TForm1.delstr(s: string): string;
begin
while pos(' ',s)>0 do
begin
s:=stringreplace(s,' ','',[rfReplaceAll]);
end;
result:=s;
end;
这是我自定义的函数,当我的字符串有两行的时候,第一行为空,第2行有值,值只能靠近到第2行,不明白为什么
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
925
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部