help~! 如何将字符串中的不可见字符找到,并去掉? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);const s = 'abc'; myset = [11, 12, 13]; //你自己找出来var I: Integer;begin for I Length(s) downto 1 do if Ord(s[I]) in myset then Delete(s, I);end; 散分,5点前谁最晚,分给谁! 已经声明过的组件怎么不能编译? delphi中使用XMLDocument读取大XML文件速度非常慢,求解决方案 一个插入语句错误,帮忙看一下 请问在报表中如何插入表格? 报表打印问题 谁能给个scrollbar使用的例子,急用,谢谢 怎么用PrintDBGridEh控件实现横向打印? 求助:同步选择DBGrid问题 请问如何使注册表的修改立即生效(用WM_SETTINGCHANGE)吗 如何刷新DBGrid表格控件!!请各大侠指教! 关于使用ado编程序,从oracle数据库到数据问题batchmove
const
s = 'abc';
myset = [11, 12, 13]; //你自己找出来
var
I: Integer;
begin
for I Length(s) downto 1 do
if Ord(s[I]) in myset then Delete(s, I);
end;