TListのＳｏｒｔメソッドの使い方

解決

ＲＳＩ 2004-12-21 00:40:03 No: 12412

TListのSortメソッドの使い方がＨＥＬＰを見てもわかりません。

現在DBから読んだデータをTLISTにaddしています。
TLISTから項目を使用する場合は再度TLISTのItemsから
型宣言した変数に入れて使用しています。
ZatsuJ: TLIst
PZatsuMst: Type宣言している

PZatsuMst := ZatsuJ.Items[1]
この場合のTListのある項目をソートを行いたいのですが
具体的に使用例を教えて下さい。

また、２項目をソートキーとしたい場合はどうすればいいのでしょう？

よろしくご教授お願いします。

にしの 2004-12-21 02:23:32 No: 12413

function ZatsuMstComp(Item1, Item2: POINTER):Integer;
var
  ZatsuMst1, ZatsuMst2: PZatsuMst;
begin
  ZatsuMst1 := PZatsuMst(Item1);
  ZatsuMst2 := PZatsuMst(Item2);
  { ZatsuMst1とZatsuMst2の比較結果を返す }
end;

とすればよろしいかと。
呼出は、
ZatsuJ.Sort(ZatsuMstComp);
です。
ヘルプの例を見ればわかると思います。

RSI 2004-12-21 22:24:10 No: 12414

ありがとうございました。