读书人

怎么去掉字符串中包含的回车键

发布时间: 2012-03-08 13:30:13 作者: rapoo

如何去掉字符串中包含的回车键!
如:123456789[此处一个回车]123456


[解决办法]
把字符换成ASC码,去掉回车键的ASC码
[解决办法]
现在的人是不是都喜欢在非技术区提问技术类问题了?

可以用AnsiReplaceStr函数来处理:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage ( '123456789 '#13 '123456789 ');
ShowMessage (AnsiReplaceStr( '123456789 '#13 '123456789 ', #13, ' '));
end;

[解决办法]
procedure ReplaceEnter(var aStr: string);
var
index: Integer;
begin
while Pos(#$D#$A, aStr) <> 0 do
begin
index := Pos(#$D#$A, aStr);
Delete(aStr, index, 2);
end;
end;
[解决办法]
StringReplace(Str, #10#13, ' ', [rfReplaceAll]);

读书人网 >.NET

热点推荐