select 日期 from 表单1将第一条日期记录赋给s1 第二条给s2 第三条给s3 一直到s9 如果没有9条就赋空值,而不出现异常。
解决方案 »
- TcomponentList中组件的调用问题?
- Multiple connections not supported by mysql driver问题
- 如何调用外部程序以及判断某一应用程序是否在运行...在线等待
- 怎样在执行文件中保存信息(在线等待)
- 谁有邮件搜索方面的软件,可以对指定的网站进行EMAIL搜索,不要试用版本,要注册的,有注册码的也可以,由于本人只有20分。。
- 高手救命阿,谁知道DELPHI里的EOleException是怎么使用的?
- 在Delphi里面如何把如TSpeedButton 做成数组。像VB里那样.这样他的事件写在一个里面就可以了。
- 请大家用简短的语言说一下自己对COM/COM+的认识与看法~~~
- 安装Sql server 2000的问题
- 给个正式的答案,成为delphi 高手要多长时间!!!讨论。。来来。。
- 郁闷``辞职,delphi:工控\串口通信\数据库一年 asp:网站\MIS两年 up有分
- 求购餐饮收银系统原代码!!!急急急
if date().count<=9 then
begin
while (not eof) and i<=9 do
begin
s[i]:=date()[i].values;
i:=i+1;
next;
end;
end;
if date().count<=8 then
begin
..
s[9]:=nil
end;
s[9]=
第9條
..select date from table
ado.open;
i:=1;
ado.first;
while (not ado.eof ) do
begin
case i of
1: s1:= ado.fieldbyname('date').asstring;
2: s2:= ado.fieldbyname('date').asstring;
3: s3 := ado.fieldbyname('date').asstring;
...
9: s8:=ado.fieldbyname('date').asstring;
end;
inc(i);
ado.next;
end;
end;
不知道你要那么多S1,S2,...s3干嘛我只好这么写了,不知道数组可不可以,如果可以那样更好了
这样就可以了,如果有第9条就有值,没有就是你的初使值空了,这个我没有测试,只是提供一个方法你自已去试一下!