IsEmpty = True bei List.Count = 1

[haentschman]

Hallöle...

...verstehe ich nicht (siehe Bild).

Die WebFleetList ist eine abgeleitete TObjectList<TWebFleet>. In der Liste ist ein Objekt drin. Verschiedene Buttons (Delete z.b.) sind abhänging vom Inhalt der Liste. Ich wunderte mich, warum der Button disabled war, obwohl die Liste NICHT leer ist.

Ich benutze gern not List.IsEmpty statt List.Count > 0 ... das geht aber gerade in die Hose.

Hat Jemand eine Erklärung?

Danke...

[himitsu]

Wo kommt DIESES FIsEmpty denn her?

Zitat:

Delphi-Quellcode:

property IsEmpty: Boolean read GetIsEmpty;

function TList<T>.GetIsEmpty: Boolean;
begin
  Result := FCount = 0;
end;

[haentschman]

Zitat:

Wo kommt DIESES FIsEmpty denn her?

...aus TList<>

Ich habe KEIN eigenes IsEmpty implementiert. Meine Objektliste Liste erbt von TList.

Nachtrag:
Ich habe gelogen. Ich hätte schwören können, daß das IsEmpty aus TList kommt.

Tatsache seit 5 Jahren:

Delphi-Quellcode:

  TxxxxObjectList<T: class> = class(TObjectList<T>)
  strict private
  {$REGION 'Fields'}
    FChanged: Boolean;
    FIsLoading: Boolean;
    FIsEmpty: Boolean;
    FOnChange: TOnChangeEvent;
    procedure SetChanged(const Value: Boolean);
    procedure SetIsLoading(const Value: Boolean);
  {$ENDREGION}
  public
    constructor Create; overload; virtual;
    constructor Create(const AComparer: IComparer<T>); overload; virtual;
    property OnChange: TOnChangeEvent read FOnChange write FOnChange;
    property Changed: Boolean read FChanged write SetChanged;
    property IsLoading: Boolean read FIsLoading write SetIsLoading;
    property IsEmpty: Boolean read FIsEmpty write FIsEmpty; // -> würg
    procedure Clear; overload;
    function Add(const Value: T): Integer; overload;
    procedure Delete(Index: Integer); overload;
    function Remove(const Value: T): Integer; overload;
  end;

...wer mach denn so einen Schei...

[freimatz]

Der MMX?
(wenn man die entsprechenden Optionen auswählt)