Sortierte TObjectList - Einträge richtig einfügen

[Sir Rufo]

Man kann zum Sortieren der Liste auch einen Comparer mitgeben TList<T>.Sort( const Comparer: IComparer<T> ); .

Der interne Comparer der Liste ist eigentlich für die Identität da. So wird dieser z.B. bei IndexOf oder Contains verwendet (unabhängig davon, wie die Liste jetzt sortiert ist).

[Perlsau]

Hatte ich zuvor bereits versucht, allerdings wieder obige Fehlermeldung erhalten, wobei man hier vermutlich den alternativen Comparer nicht als Klassenmethode deklarieren darf. Da ich hier aber weder was einfügen noch IndexOf verwenden muß, bleibe ich vorerst bei meiner zweckentfremdenden Variante

Nochmals ganz großen Dank für deine Unterstützung, denn jetzt hab ich immerhin was dazugelernt

[Sir Rufo]

Doch geht schon

Delphi-Quellcode:

unit Unit1;

interface

uses
  Generics.Collections,
  Generics.Defaults;

type
  TLogFile = class
  private
    FFileId  : Integer;
    FFileName: string;
  public
    property FileId  : Integer read FFileId;
    property FileName: string read FFileName;
  public
    class function IdentityCompare( const L, R: TLogFile ): Integer; static;
    class function NameCompare( const L, R: TLogFile ): Integer; static;
  end;

  TLogFileList = class( TObjectList<TLogFile> )
  public
    constructor Create( AOwnsObjects: Boolean = True );
  end;

implementation

{ TLogFile }

class function TLogFile.IdentityCompare( const L, R: TLogFile ): Integer;
begin
  Result := TComparer<Integer>.default.Compare( L.FFileId, R.FFileId );
end;

class function TLogFile.NameCompare( const L, R: TLogFile ): Integer;
begin
  Result := TComparer<string>.default.Compare( L.FFileName, R.FFileName );
end;

{ TLogFileList }

constructor TLogFileList.Create;
begin
  inherited Create( TComparer<TLogFile>.Construct( TLogFile.IdentityCompare ), AOwnsObjects );
end;

end.

wenn man die Methoden als static markiert

Zusätzlich könnte man bei der Klasse auch noch die gewünschten Comparer als class property hinterlegen ... kommt halt darauf an

[Stevie]

Wenn ich TComparer<*>.Default.Compare an Stellen sehe, wo nur nen String oder Integer verglichen wird, bekomm ich das kalte Grausen.
Und am Ende wird wieder gemeckert, dass der Code langsam wird.

[TiGü]

Zitat von Stevie:

Wenn ich TComparer<*>.Default.Compare an Stellen sehe, wo nur nen String oder Integer verglichen wird, bekomm ich das kalte Grausen.
Und am Ende wird wieder gemeckert, dass der Code langsam wird.

Wie wäre es richtig(er)?

[Benmik]

Möglicherweise

Delphi-Quellcode:

class function TLogFile.IdentityCompare( const L, R: TLogFile ): Integer;
begin
  Result := L.FFileId - R.FFileId;
end;

zum Beispiel ?

[Sir Rufo]

Oder mit einer von diesen Routinen
http://docwiki.embarcadero.com/RADSt...leichsroutinen