delphi 粘贴到 memo的字符串之间1个或多个空格，自动替换成1个空格，怎么写
例如：123456//（excel格式粘贴到memo）mem哦自动替换成123456//（替换成一个空格）...
例如：1 2 3 4 5 6 //（excel格式粘贴到memo）mem哦自动替换成1 2 3 4 5 6 //（替换成一个空格）
展开
3个回答
展开全部
循环
while Pos(' ', memo.Text) > 0 do
StringReplace(memo.Text, ' ', ' ', [rfReplaceAll]);
while Pos(' ', memo.Text) > 0 do
StringReplace(memo.Text, ' ', ' ', [rfReplaceAll]);
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
已发
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
已发
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
