delphi中三个数值排序

在Delphi中，我们可以使用一个记录类型来存储三个数值，并编写一个排序函数对其进行排序。

首先，我们定义一个记录类型，包含三个整数类型的字段：

type
  TNumbers = record
    Num1, Num2, Num3: Integer;
  end;

然后，我们可以编写一个排序函数，使用冒泡排序算法，按照从小到大的顺序对记录中的数值进行排序：

procedure SortNumbers(var Numbers: TNumbers);
var
  i, j, temp: Integer;
begin
  for i:= 1 to 2 do
  begin
    for j:= 1 to 2 do
    begin
      if Numbers.Num[j] > Numbers.Num[j+1] then
      begin
        temp := Numbers.Num[j];
        Numbers.Num[j] := Numbers.Num[j+1];
        Numbers.Num[j+1] := temp;
      end;
    end;
  end;
end;

在主程序中，我们可以创建一个TNumbers类型的对象，并给其字段赋值。然后调用排序函数对其进行排序，最后输出排好序的结果：

var
  MyNumbers: TNumbers;
begin
  MyNumbers.Num1 := 3;
  MyNumbers.Num2 := 1;
  MyNumbers.Num3 := 2;

  SortNumbers(MyNumbers);

  ShowMessage(IntToStr(MyNumbers.Num1) + ', ' 
    + IntToStr(MyNumbers.Num2) + ', ' 
    + IntToStr(MyNumbers.Num3));
end;

以上代码将会输出"1, 2, 3"，即按照从小到大的顺序对三个数值进行了排序。