if语句的简单问题 ( 积分: 20 )

翁

翁富大

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #1

if dbgrid.selectedfield.fieldname = 'sds' or dbgrid.selectedfield.fieldname = 'sds2' or dbgrid.selectedfield.fieldname = '3sdsd' or dbgrid.selectedfield.fieldname = 'sds4' then do
有没有简便的写法，不让dbgrid.selectedfield.fieldname多次出现。多谢了

 

翁

翁富大

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #2

if dbgrid.selectedfield.fieldname = 'sds' or dbgrid.selectedfield.fieldname = 'sds2' or dbgrid.selectedfield.fieldname = '3sdsd' or dbgrid.selectedfield.fieldname = 'sds4' then do
有没有简便的写法，不让dbgrid.selectedfield.fieldname多次出现。多谢了

 

L

loco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #3

sl: stringlist;

sl.text := 'sds'#13#10'sds2'#13#10'3sdsd#13#10'sds4
if sl.indexof(dbgrid.selectedfields.fieldname) >= 0 then

 

翁

翁富大

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #4

丫，是个新思路啊，我试试先

 

W

Walnut_Tom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #5

with dbgrid.selectedfield do
if fieldname = 'sds' or fieldname = 'sds2' or fieldname = '3sdsd' or fieldname = 'sds4' then

 

T

tanglei038

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #6

with dbgrid.selectedfield do
begin
if fieldname = 'sds' or
fieldname = 'sds2' or
..... then
begin
{你的代码}
end;
end;

或者：
var
dbgField: TField;
begin
if dbgField.fieldname = 'sds' or
dbgField.fieldname = 'sds2' or
dbgField.fieldname = '3sdsd' or
dbgField.fieldname = 'sds4' then
begin
.......
end;
end;

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #7

var
str: String;

str := dbgrid.selectedfield.fieldname;
if str = 'sds' or str = 'sds2' or str = '3sdsd' or str = 'sds4' then do

 

村

村头一蹲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #8

也是个新思路呀
不错的

 

爱

爱不到要偷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #9

with dbgrid.selectedfield do
if (fieldname = 'sds') or
(fieldname = 'sds2') or
(fieldname = '3sdsd') or
(fieldname = 'sds4') then
begin
......
end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #10

If Pos(dbgrid.selectedfields.fieldname, 'sds,sds2,3sdsd,sds4')>0 Then
...

 

翁

翁富大

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #11

可是这种方法要创建实例吧，还有简便的么[]

 

D

daqun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #12

if pos(format(',%s,',[dbgrid.selectedfield.fieldname]),
format(',%s,%s,%s,$s,',[sds'','sds2','sdsda','sd4']))>0 then

这样才会只出现一次dbgrid.selectedfield.fieldname,而且不用新建对象.

 

翁

翁富大

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #13

xianguo的答案正是我想要的，不过你的好像不是十分完善吧，我改了一下：
If Pos(','+dbgrid.selectedfields.fieldname+',', ',sds,sds2,3sdsd,sds4,')>0 Then


上面的daqun，不好意思，你的答案很好，可惜我分配完分数才看见，sorry