解决方案 »
- 请教数据库多表(3表)联合操作的问题:数据量大会引起程序假死!该如何解决!
- DELPHI语法
- 请问各位高手, 怎么样从数据库sql2000读取图片(IMAGE)字段???
- 为什么每次打开我写的程序都会出现Database login登录呢?
- 讨论一下,Windows中COM程序,有哪些,哪里有相关的参考资料。
- 打印问题
- 求<<微型计算机接口技术>>课程设计报告一个+100 分
- 我都快崩溃了,关于微型(票据)打印机的问题?
- 我把一群人按10人一组分,在同一组里分别给每人加上编号,有没有什么快速的方法?-数据库中
- DELPHI 装载问题:
- delphi+mysql从临时表导入主表的问题
- 关于cxgrid拖动列到分组的响应事件
var sl:TStrings;
i,j:integer;
a,b:double;
s:string;
begin
s:='2.5';
a:=abs(strtofloat(s));
j:=0;
sl:=TStringList.Create;
sl.Delimiter:=',';
sl.CommaText :='1,3,5';
for i := 0 to sl.Count-1 do
begin
b:=abs(strtofloat(sl.Strings[i])-strtofloat(s));//取差的绝对值
if a>b then begin //如果离S近就更换当前值
a:=b;
j:=i;
end;
end;
showmessage(sl.Strings[j]);
sl.Free; //求在mya中的接近的3.
end;
end.