delphi中in的使用

问题: 在Delphi中，如何将集合数据类型中的某元素取出来？如set1:=[1,2,3,4,5,6]中的第三项3取出放入一变量中。

Delphi的集合不同于数组或者List或者VB的Collection，它的元素是没有顺序，所以不存在某个集合中的第3项的说法。

你只能用in判断某个元素是否在Delphi的集合中。

如 if 3 in set1 then ... else ...

例如防止输入非整数字符

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [’0’..’9’, #8]) then //防止输入非整数字符

key := #0;

end;

注意：如果出现Operator not applicable to this operand type 提示错误，是因为 in 没有被括号保住。

推荐分享