求一个简单的函数,传一个字符串参数,把字符串中非数字的字符全部去掉,返回一个全是数字的字符串。
解决方案 »
- Field or method identifier expected
- findfirst和findnext的搜索顺序问题
- 我做的ms word插件为什么弹出的窗体没有将word作为父窗体?
- TServerSocket与TClientSocket的问题?高手啊
- 数据库系统开发课题请教(试用版仅一月之限,火急求救!!!)
- 请问怎么对table进行排序啊?
- 一个简单问题,那种确定、取消的对话框。
- 十分重要
- 请帮个忙,为什么第二次运行会出错(ADO),代码贴出来了
- 谁知道API中播放WAV波形文件的函数?
- 怎样判断一个时间变量是不是空值!高手帮忙
- 请教高手!如何在RAVE中根据报表内容动态确定设置报表控件内容
var i:integer;
begin
result:='';
for i:=1 to length(s) do
begin
if (Copy(s,i,1)>='0') and (Copy(s,i,1)<='9') then
result:=result+Copy(s,i,1);
end;
end;
var
tempstr:string;
i:integer;
begin
tempstr:= '';
for i:=0 to length(str) do
if str[i] in ['0','1','2','3','4','5','6','7','8','9'] then
tempstr:= tempstr+str[i];
result:= tempstr;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := getNum(edit1.Text );
end;