ICompare

Delphiでのインターフェースの実装方法がよくわからなかったのでメモ。

TMyComparer = class(TObject, IComparer)

public

function IComparer.Compare = Compare;

function Compare(x, y: TObject): Integer;

end;

とりあえず、このように宣言しておいてCompareを実装すればいいようだ。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です