如何截取某个字符并分开显示

Question

ADO+ACCESS
现有这么一组放acess里的数据
123
549
486
546
213
546
.....
这些都是三位
我想把他们分别截取出来分成三行独立的
如:
1  2  3
5  4  9
4  8  6
5  4  6
2  1  3
5  4  6
请问用delphi应该怎么实现呢

Answer 1

with self.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add( 'select left(aa,1),mid(aa,2,1),right(aa,1) from 表1' );
    open;
  end;

Answer 2

如果是整型的话,可以这样: /是除, %是取模,ACCESS没试,可以找相应的函数
select a/100, a%100/10, a%10 from table

Answer 3

估计是用DBGrid去显示:
手工增加DBGrid的列,再调整一下就行了!

Answer 4

dbgrid的显示长度与数据库中的定义有关，你把数据库里的长度定义成3就好了:)

Answer 5

是手工增加DBGrid的列
但调整完就显示不了数据了

Answer 6

截成三行后如果是
1 2 5
如何在DBGrid里判断奇偶并显示为
奇 偶 奇
也是分三行,谢谢了!!
select iif(left(aa,1) mod 2=0,'偶','奇'),iif(mid(aa,2,1) mod 2=0,'偶','奇'),iif(right(aa,1) mod 2=0,'偶','奇') from 表1

Answer 7

select iif(left(aa,1) mod 2=0,'偶','奇'),iif(mid(aa,2,1) mod 2=0,'偶','奇'),iif(right(aa,1) mod 2=0,'偶','奇') from 表1这样编译后说字符类型不符,是不是除2后是整型,而'奇''偶'是字符型的原因啊
怎么办呢

Answer 8

你把这段代码放到delphi中了吧，'偶'需要这样写''偶''delphi总两个单引号转意成一个'

Answer 9

left(aa,1) mod 2=0
aa是什么类型的,如果是文本类型,那么取出来还是文本类型,应该不可以跟2取模~
如果是整型,应该不可以用left