Question

delphi 数组问题 ？

RT 如何快速比对出数组里面的值，比如数组 Arry{‘a’,'b','c'} 找出 a 值。

Answer 1

你所说的找出a值,是找出数组中是否存在a值,还是找出a值在数组中的位置呢?

追问

是存在的a值，怎样可以快速的找出来。不是位置喔！

追答

添加一个Listbox控件

设置静态数组为:arrStr:array[0..2] of string =('10','24','36');
var
i,NumIndex:Integer;
begin
for i:=Low(arrstr) to High(arrstr) do
begin
ListBox1.Items.Add(arrstr[i]);
end;
NumIndex :=ListBox1.Items.IndexOf('24');
ShowMessage(IntToStr(NumIndex)); //这里返回24字符串在数级中的索引
end;

Answer 2

如果数组是有序的,可以使用二分法查找,
如果是无序的,只能使用循环一个一个比对

Answer 3

//首先定义一个数组类型 type TArr = array of integer; //然后定义返回这个数组类型的函数 function strSplit(strSplit,str:string):TArr ; var str: