IsEmpty = True bei List.Count = 1

[haentschman]

Hallöle...8-)

...verstehe ich nicht (siehe Bild). :roll:

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. :gruebel:

Ich benutze gern

Delphi-Quellcode:

not List.IsEmpty

statt

Delphi-Quellcode:

List.Count > 0

... das geht aber gerade in die Hose.

Hat Jemand eine Erklärung?

Danke...:wink:

[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<> :zwinker:

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. :oops:

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...:oops:

[freimatz]

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