如何把一个字符串中的字母和数字分开? 请教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var a,b.s:string;for i := 1 to length(s) dobegin if (s[i] >= 'a' and s[i] <= 'z') or (s[i] >= 'A' and s[i] <= 'Z') then begin a := a + s[i]; end; if s[i] >= '0' and s[i] <= '9' then begin a := a + s[i]; end;end; 指针和记录 使用的问题 请教一个内存映射的问题 有没有这样的控件:象QQ那样写入网址或者传递文件提示有"接受"或"拒绝"有下划线链接的啊 手机短信问题 如何更改路径?555555~~ 退出windows的api 函数 小问题,BCB代码转换! 关于读取excel表 这个问题没人回答吗? 数据库主键冲突的异常捕获问题,急。 如何,一次性把Panel 内的许多许多TEDIT,TLABEL 控件设置共同的属性 我搞不懂,2个问题。
a,b.s:string;
for i := 1 to length(s) do
begin
if (s[i] >= 'a' and s[i] <= 'z') or (s[i] >= 'A' and s[i] <= 'Z') then
begin
a := a + s[i];
end;
if s[i] >= '0' and s[i] <= '9' then
begin
a := a + s[i];
end;
end;