Hallo,
ich habe eine Collection un der CollectionItems gespeichert werden. Die Collection soll sortiert sein. Beim tauschen zweier Elemente kommt allerdings eine Fehlermeldung.
Delphi-Quellcode:
type
TItem = class(TCollectionItem)
private
FVar: String;
public
property Var: String read FVar write FVar;
end;
TMyList = class(TCollection)
private
function GetItem(index: Integer): TItem;
procedure SetItem(index: Integer; Value: TItem);
public
property Items[index: Integer]: TItem read GetItem write SetItem;default;
end;
procedure TMyList.SetItem(index: Integer; const Value: TItem);
begin
inherited SetItem(index,Value);
end;
function TMyList.GetItem(index: Integer): TItem;
begin
Result:=inherited GetItem(index) as TItem;
end;
// Anwendung
var buffer: TItem;
buffer:=myList[0];
myList[0]:=myList[1] // FEHLER: TItem kann nicht zu TItem zugewiesen werden????
Warum dieser Fehler??
Danke Baeuerle