delphi 判断某值是否在数组中

答案:1 悬赏:40 手机版

解决时间 2021-03-17 00:06

提问者网友：焚苦与心
2021-03-16 16:47

delphi 判断某值是否在数组中

最佳答案

五星知识达人网友：酒者煙囻
2021-03-16 18:13

扫描一遍就可以了：
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
我用的是全部变量赋初值的方法，呵呵谢谢了！解决了我的问题！非常感谢！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息