Tlist

最新推荐文章于 2021-05-12 16:47:24 发布

seagull327

最新推荐文章于 2021-05-12 16:47:24 发布

阅读量478

点赞数

分类专栏：指针函数文章标签： integer function string

本文链接：https://blog.csdn.net/haiou327/article/details/6626886

版权

指针函数专栏收录该内容

23 篇文章 0 订阅

订阅专栏

type
  PmyList = ^RmyList;
  RmyList = record
  name: string[20];
  Age: integer; end;

implementation

{$R *.dfm}

function CompareNames(Item1, Item2: Pointer): integer;
begin
  Result := CompareStr(inttostr(PmyList(Item1).Age),
    inttostr(PmyList(Item2).Age)); // 定义比较函数
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  AList: TList;
  PaList: PmyList;
  Idx ， I: integer;
begin
  mmo1.Clear;
  AList := TList.Create;
  New(PaList);
  PaList.name := 'Asheng';
  PaList.Age := 18;
  AList.Add(PaList);
  New(PaList);
  PaList.name := 'TianTian';
  PaList.Age := 16;
  AList.Add(PaList);
  AList.Sort(@CompareNames); // 排序
  for Idx := 0 to AList.Count - 1 do
  begin
    PaList := AList.Items[Idx];
    mmo1.Lines.Add(PaList.name);
    mmo1.Lines.Add(inttostr(PaList.Age));
  end;
  for I := 0 to AList.Count - 1 do
    Dispose(AList[I]);
  FreeAndNil(AList);
end;