用delphi写一个获取1到100之前的所有偶数的方法

使用 Delphi 编写代码来获取 1 到 100 之间所有的偶数可以使用以下方法：

1. 使用循环遍历 1 到 100 的范围。
2. 在循环中检查每个数字是否为偶数。
3. 如果数字是偶数，则将其存储在列表或数组中。

以下是使用 Delphi 编写的一个示例代码：

var
  i: Integer;
  evenNumbers: array[1..50] of Integer;  // 存储偶数的数组
  evenNumberCount: Integer;  // 偶数的数量
begin
  evenNumberCount := 0;
  for i := 1 to 100 do
  begin
    if (i mod 2 = 0) then  // 检查数字是否为偶数
    begin
      evenNumberCount := evenNumberCount + 1;  // 增加偶数的数量
      evenNumbers[evenNumberCount] := i;  // 将数字存储在数组中
    end;
  end;
end;

在这个示例中，我们使用了一个数组来存储找到的偶数。你也可以使用其他数据结构，如列表或链表。