在txt文件中如何删除回车前的符号和字母! 请问各位,如何实现这样的功能:在txt文件中每个回车前:1。如果是中文字则保留:2。如果是英文字母或符号“◎”则删除。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 晕,毕竟你调用的是writeln函数,在传递给WriteLn函数做参数之前,判断一下就可以了。如:var s : string; begin S := 'XXXX'; if S[Length(S)] in ['a'..'z','A'..'Z', '◎'] then S := Copy(S, 1, Length(S) -1); Writeln('You typed: ',s); end; 关于delphi内存泄漏的问题 获取网页图片的问题 ****************关于中英文对照的问题???????????????????? 如何在单击窗体右上角的关闭按钮时不关闭窗体? 怎样kill 远程 ORACLE 的进程 怎样实现图片字段的查询? 怎样强行结束线程?注意是强行 本周话题(二),偶的算法、数据结构学的不好(数学差),除了数据库之外,还能作哪些开发方向? 答者有分 类的问题:东东该放哪里? 半年没来了,散点分表下心意(2) 请问:我如何在Delphi里调用一段JAVA程序?(分不够再加,最多可以加到200分)
var
s : string;
begin
S := 'XXXX';
if S[Length(S)] in ['a'..'z','A'..'Z', '◎'] then S := Copy(S, 1, Length(S) -1);
Writeln('You typed: ',s);
end;