查查Ascii码手册吗,回车=chr(13)
解决方案 »
- TcxDBTreeList 控件怎样设置选中后反色?
- 小弟求救,TRect中的Rect的值是如何得到的。
- ACCESS库,怎样建Autoinc型的表?
- beginthread里面有个循环,占用的cpu资源很大,如果处理?
- 菜鸟遇到很难的问题,翻了好多书都没找到希望高手进来帮忙.重谢
- 怎么在我的 Delphi 的dbexpress 里找不到Sqlclientdataset
- 如何在程序中判断一个FORM在运行时有没有被关闭或隐藏
- 来抢分啊
- 关于包头的定义问题?
- 临时表?
- DateTimepicker中的文本框字体颜色的改变?
- 能不能探讨一下“PDOXUSRS.LCK”的问题??(实现最笨的网络连接)
or
0x0a 0x0dit depend on the operating system.
function deleteenter(str:string):string;
var k:integer;
s1,s2:string;
begin
s2:=#$D#$A;
s1:=str;
k:=pos(s2,str);
if k=0 then result:=str
else
begin
s1:=str;
while k<>0 do
begin
s1:=copy(s1,1,k-1)+' '+copy(s1,k+2,length(str)-k);
k:=pos(s2,s1);
end;
end;
result:=s1;
end;