真的没有人会了吗???????????????

Question

我是一个初学者.
判断某一值有没有在几个值内的程序怎么写?
一个输入框,一个LABEL,
比如,如果china 在USA,DFA,FFDA,FDA中,label显示'ok',否则显示'no'.
比旭如果输入ss,label就显示'no',最好能写出程序.谢谢了想用集合或者数组
以下是别人回的贴,不行
if trim(edit1.text) in (USA,DFA,FFDA,FDA) then 
showmessage('ok!') 
else 
showmessage('no');

Answer 1

if trim(edit1.text) in ('USA','DFA','FFDA','FDA') then 
showmessage('ok!') 
else 
showmessage('no');

Answer 2

if pos(trim(edit1.text),'(''USA'',''DFA'',''FFDA'',''FDA'')') > 0 then
showmessage('ok!') 
else 
showmessage('no');

Answer 3

下面是测试通过的：你看看：procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='usa')  or (edit1.text='DFA')  or (edit1.text='FFDA') or (edit1.text='FDA') then
begin
showmessage('ok!')
else 
showmessage('no');
end;
end;

Answer 4

上面的有个毛病请看下面的：  procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='usa')  or (edit1.text='DFA')  or (edit1.text='FFDA') or (edit1.text='FDA') then
 begin
 showmessage('ok!')
 end
else
showmessage('no');end;

Answer 5

xiaoxiao197821(你的笑对我很重要)if pos(trim(edit1.text),'(''USA'',''DFA'',''FFDA'',''FDA'')') > 0 then
showmessage('ok!') 
else 
showmessage('no');
这个就行了，不能用or方法，那是违背编程思想的

Answer 6

sixgj(轰炸机) 
这种代码也帖出来！！
不想多说了！

Answer 7

采用集合的方法：Delphi7调试通过
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_Class, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  tenum=(USA,DFA,FFDA,FDA);
  tt=set of tenum;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  EnumSet:tt;
begin
  EnumSet:=[USA,DFA,FFDA,FDA];
  if not (USA in EnumSet) then
     messagebox(handle,'not include','not',mb_ok)
  else
     Messagebox(handle,'Include','include',mb_ok)
end;end.

Answer 8

FR_Class 是FastReport删掉就可以了！