Delphi 条件语句示例：使用 IF NOT 检查变量并循环存储设备 ID

这段代码是一个简单的条件语句，如果变量 'x' 的值为假（即为 FALSE），则将其赋值为真（即为 TRUE），并执行一个循环，将 Onewire_master 对象中已扫描到的设备的 ID 存储在一个字符串数组 'astrID' 中。该循环最多执行 20 次，因为使用了 MIN 函数限制循环次数不超过 Onewire_master.uiScannedDevices 和 20 之间的较小值。

IF NOT x THEN
  x := TRUE;
  //scan function
  FOR ui:=1 TO MIN(Onewire_master.uiScannedDevices, 20) DO
    astrID[ui] := Onewire_master.pasScannedDevices^[ui-1].StringRepresentation;
  END_FOR
END_IF