时间数组排序问题？

skyhannibal

我现在有个数组，里面存放的是时间格式的数据，想把它按一定的顺序排列一下，以方便我找到自己想找的数据，怎么做啊？

有哪位知道帮个忙吧？我不胜感激！

skyhannibal

var
  a: array[0..1024] of tdatetime;
  i: integer;
  b: tdatetime;
begin
  a[i] := datetimepicker1.datetime; //加多个时间

  {对数组进行排序}

  b := a[i];  //这就是要的结果
end;

supperman

你把时间格式化(FormatDateTime('YYYY-MM-DD HH:MMMM:SS', A[I]))加入到一个TStringList里面，根据你的要求写定排序函数因子（如升、降序），然后用CustomSort排序。 在取出数据时再把字符串格式化成TDateTime(B[I] := StrToDateTime(SL[I]))

supperman

function Compare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareText(List[Index1], List[Index2]);  //升序
end;

procedure TFormDemo.ButtonDemoClick(Sender: TObject);
var
  A: array[0..1024] of TDateTime;
  I: Integer;
  B: TDateTime;
  SL: TStringList;
begin
  Randomize;
  SL := TStringList.Create;
  for I := 0 to 1024 do
  begin
    A[I] := DateUtils.IncHour(Now, Random(24));
    SL.Add(FormatDateTime('YYYY-MM-DD HH:MMMM:SS', A[I]));
  end;
  SL.CustomSort(@Compare);
  ListBox.Items := SL; //看看结果
  B := StrToDateTime(SL[5]);
end;

supperman

当然你也可以在排序后给A[I]重新按序赋值

skyhannibal

你好厉害， 我看到排序的结果了！
我改一下我的代码，看看可不可以。
其实我最终要的就是用另外一个时间去找这个数组里与它最近的那个时间，我想排完后再找就不是难事了。

skyhannibal

还是不行，时间数据是排序了，但是我去没法把我要的那个数据找出来啊！
这样的：
stringlist里面的那个最大的小于指定数的数怎么找，没怎么用过stringlist，你再指点一下！！
万分感谢！

gulele007

如果你想找离你给出的时间最近的时间，用得着先排序么？就直接遍历一次不就可以了么？。当然，如果你的时间数组是固定得，而且需要多次，反复查找，先排好序还是有些用处。
排序就用冒泡法即可。但找时间得时候可以采用二分法。

gulele007

补充一点，日期时间在内存中实际上就是浮点数。浮点数排序应该不难吧。

supperman

呵呵,要活学活用.改变一下比较因子就可以了.如下:

const
  Point = '2016-1-6 12:00:00';


function Compare(List: TStringList; Index1, Index2: Integer): Integer;
var
  Diff1, Diff2: Double;
begin
  Diff1 := ABS(StrToDateTime(List[Index1]) - StrToDateTime(Point));
  Diff2 := ABS(StrToDateTime(List[Index2]) - StrToDateTime(Point));
  if Diff1 > Diff2 then
    Result := 1;
  if Diff1 = Diff2 then
    Result := 0;
  if Diff1 < Diff2 then
    Result := -1;
end;

procedure TFormDemo.ButtonDemoClick(Sender: TObject);
var
  A: array[0..1024] of TDateTime;
  I: Integer;
  B: TDateTime;
  SL: TStringList;
begin
  Randomize;
  SL := TStringList.Create;
  for I := 0 to 1024 do
  begin
    A[I] := DateUtils.IncHour(Now, Random(24));
    SL.Add(FormatDateTime('YYYY-MM-DD HH:MMMM:SS', A[I]));
  end;
  SL.CustomSort(@Compare);
  ListBox.Items := SL; //看看结果
  B := StrToDateTime(SL[0]); //最近的时间
end;

我上面是取的差异的绝对值.