如何判断数据库中的某一条数据中含有0..9数字? ( 积分: 50 )

B

bj_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #1

数据库某一字段['a']是文本类型,用ADOTable1['a']读出.想判断它的第一个字符是不是数字,我用如下方法 if ADOTable1['a'][1] in ['0'..'9'] then
结果出错.请问怎样写才对? 如果不是判断第一个而是判断第N个 能不能这样:if ADOTable1['a'][N] in ['0'..'9'] then

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #2

if ADOTable1['a'].asstring[1] in ['0'..'9']试试

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #3

ADOTable1.FieldByName('a').AsString[1]

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #4

copy(ADOTable1.FieldByName('a').AsString,1,1);
用这个copy函数取得第一个字符；
copy（number,cunt,s）;
number:要拷贝的字符串
cunt:拷贝字符开始的位数；
s:字符位数


这样试试：
var
s:string;
const
d='1234.5678';
begin
s:=copy(d,1,1);
if s='1' then
begin
showMessage(Int);
end;
end;
你就知道了！

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #5

showMessage(Int);//错了！
改成
showMessage(s);

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #6

if (ord(copy(ADOTable1['a'],1,1)[1])>47) and (ord(copy(ADOTable1['a'],1,1)[1])<58) then

 

S

slf0205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #7

VAR D，DD：STRING；
D：=COPY（‘字符串’，N，1）；
DD:='0123456789';
if pos(D,DD)>0 THEN
D是数字
或if Byte(YourChar) in [48..57] then
ShowMessage('YourChar is Number!');

 

B

bj_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #8

多人接受答案了。