9、数据搜索算法全解析：从顺序搜索到二分搜索

数据搜索算法全解析：从顺序搜索到二分搜索

1. 比较例程

在不同的环境中，字符串比较需要使用不同的函数。以下是不同环境下的比较代码：

{$IFDEF Delphi2Plus}
Result := CompareString(LOCALE_USER_DEFAULT, 0,
PAnsiChar(aData1), -1,
PAnsiChar(aData2), -1) - 2;
{$ENDIF}
{$IFDEF Kylix1Plus}
Result := strcoll(PAnsiChar(aData1), PAnsiChar(aData2));
{$ENDIF}

在 Delphi 2 及更高版本中，使用 CompareString 函数，但需要对其返回值减 2 以符合我们的需求。在 Kylix 1 及更高版本中，使用 strcoll 函数。

2. 顺序搜索

顺序搜索是一种基本的搜索算法，适用于数组和链表。

2.1 数组顺序搜索

• 未排序数组 ：对于未排序的数组，需要遍历数组中的每个元素并与目标元素进行比较。以下是一个简单的示例代码：

var
  MyArray : array [0..99] of integer;
  Inx : integer;
begin
  for Inx := 0 to 99 do
    i