这样的转换怎么实现? s:='abc,7;def,1,23;ghi,7'要转换成s:='abc;def;ghi' 也就是说要把字符串中的逗号和数字去掉 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var s,s1 :string; i : integer;begin s:='abc,7;def,1,23;ghi,7'; for i:=1 to length(s) do begin if not (s[i] in ['1','2',','.......]) then s1 := s1 + s[i] end; showmessage(s1); 打开界面问题 请教各位高手:为什么Edit不能输入?分不够再++++++++++ 急!!!!在线等!!!!!!!! 为什么我的程序一运行时只是闪了一下? 请教,我的程序为何常常会突然退出? 请问邮件通讯中的一点问题? delphi调用INI文件出现错误,有谁能帮帮我 关于数据库的问题,困扰我好几个星期了. query+updatesql好象有问题? 请教高手:邮件发送-----有关exchang的问题,非常棘手! 对算法有兴趣吗?如何找到数组中重复的数。要注意复杂度哦! 我开了一个线程,功能是用CopyFile拷贝许多文件,如果在别的地方中止这个线程,。。。。 一个打开对话框的操作
s,s1 :string;
i : integer;
begin
s:='abc,7;def,1,23;ghi,7';
for i:=1 to length(s) do
begin
if not (s[i] in ['1','2',','.......]) then
s1 := s1 + s[i]
end;
showmessage(s1);