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