数据库中有这样一列数是一个深度的范围表示方法如1000~1010这样的形式 我现在要做得是把这些深度范围中的最小值和最大值取出来,我现在的做法是把这个深度以~为界拆成两列 然后取钱一列的最小值和后一列的最大值 ,这样就改变了数据库的格式,我想以~为界把数全部取出来放到一个数组里面然后取最大值和最小值 请问这样的程序如何写 指点一下
解决方案 »
- 下面语句导出excel的时候提示出错,我的循环有问题吗?
- 请问各位高手,这道程序为什么不能实现其功能呢
- 如何生成十个连续不重复的随机数
- 使用BDE需要什么文件在系统文件夹里?
- 要向一个web服务器上传特定文件和文本信息,该如何做呢?我用的 delphi5.急
- 本人应届生,想找DELPHI的工作,全职,各位有消息的话可否帮忙?
- 现在我需要快捷键方式,用HOOK有缺陷,在操作别的程序时,也会响应;用MainMenu时候又没有我想要的Ctrl+F4, 怎么办
- 制作mp3播放软件,用哪个控件比较好?谢谢了
- DBGrid增强
- 任务栏右击显示的程序名怎么修改
- dbgird查询的问题.只能查一次.第二次数据就无法出来
- 见鬼了!!!----------窗体大小不受控了???
from table
i:integer;
itm:TStringList;
str:string;
begin with adoquery1 do begin
First;
itm:=TStringList.Create;
while not eof do begin
str:=字段值;
itm.add(copy(str,1,pos('~',str)-1));
itm.add(copy(str,pos('~',str),maxint));
next;
itm.Sort;
{itm.strings[0]----------最小值}
{itm.strings[itm.Count-1]-----------最大值}
end;end;
end;
var
i:integer;
itm:TStringList;
str:string;
begin with adoquery1 do begin
First;
itm:=TStringList.Create;
while not eof do begin
str:=字段值;
itm.add(copy(str,1,pos('~',str)-1));
itm.add(copy(str,pos('~',str),maxint));
next;
end;
itm.Sort;{排序}
{itm.strings[0]----------最小值}
{itm.strings[itm.Count-1]-----------最大值}
end;
end;