delphi 判断某值是否在数组中

Question

给定的某个数组比如 数组内含有1、2、3、8 四个值，然后判断任意值i 是否属于这个数组？应该怎么编写代码？谢谢了！

Answer 1

扫描一遍就可以了：
ex:=false;
for j:=1 to 4 do if a[j]=i then ex:=true;

上面的程序先假设不存在（ex变量的结果为true表示存在），然后循环判断数组的每一个元素与i是否相等，相等就设置存在标志。

追问

那定义数组含有1、2、3、8 四个值 是怎么定义的呢？

追答

看你的数据从哪里来呀，事实上一般是从数据库、文本、网络上获取这些数据，如果你要逐一赋值也可以：
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=8;

也可以从键盘获得：
var a:array[1..4] of integer; i:integer;
begin
for i:=1 to 4 do read(a[i]);
end.

追问

var
Form1: TForm1;
a1: array [1..4] of integer=(1,2,3,8);
implementation
我用的是全部变量 赋初值的方法 ，呵呵 谢谢了 ！解决了我的问题！非常感谢！