pos()函数加copy()函数应该可以的
解决方案 »
- 图片转弯问题,去除残留物,实现真正的转弯,而不是普通的移动!
- delphi如果做出“上一步,下一步”类似的对话框?
- 有接私单经验的朋友进来看看!
- 原来在一台装有rx控件的D6里头编的程序(没有使用RX控件)换到另一台没有rx控件的D6调试,出现‘说控件的文件未找到’?
- 散分!
- 各位硬件高手帮忙,联想老主板p2 350 ,不知能到80 g的硬盘
- 喷墨打印机支持逐行打印吗?
- 同一个程序在一个机子上编译300多K,在另一个机器上编译有400多K,性能并无差别,为何?(设置了哪些编译开关)
- 怎么在dbgrid1修改后没有保存就退出,如何在退出时给个提示呢?
- 如何用ADO实现升降序及查找筛选功能。最好有源代码!
- case....of下面的1.2.3.4是什么意思
- 在删除文件之前,如何能截获删除消息?
function GetNumber(s: string): string;
var
i:Integer;
begin
Result:='';
for i:=1 to Length(s) do
begin
if (s[i] in ['0'..'9']) then
Result:=Result+Copy(s,i,1);
end;
end;