TCollection und TCollectionItem

[Baeuerle]

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

[Deep-Sea]

Woran der Fehler liegt kann ich dir jetzt nicht sagen, aber:
Falls das BubbleSort ist denk daran, dass das ein extrem langsamer Sortieralgo. ist. Wenn es mehr als eine Hand voll Items sind, steig auf einen anderen um :-D



*feierabend mach*

[ste_ett]

Delphi-Quellcode:

MyList[0]

verweisst nicht auf die Originalinstanz der Klasse, sondern auf eine Kopie.
Deine Listklasse braucht noch eine Methode, um Elemente zu tauschen. :)

z.B.

Delphi-Quellcode:

myList.SwitchElements(0, 1);

[Baeuerle]

Hallo,

danke für die Antworten, ich habe allerdings noch zwei Fragen.

1) Bei anderen Objekten z.b. TStringList kann ich doch auch einen Eintrag direkt mit TStringlist[i]:='Test' setzen, warum geht das bei einer Collection nicht?

2) Ich habe entdeckt, dass bei TCollectionItem eine Eigenschaft Index vorhanden ist, mit der man direkt die Position eines vorhandenen Eintrages geändert werden kann. Sollte ich dann einfach den Index ändern um die Objekte zu tauschen?

Thx
Baeuerle

[Ghostwalker]

Das ist ganz einfach:

Die Standard-Methode in TCollectionItem für das Zuweisen ist die Assign-Methode. Da du selbige nicht
überschrieben hast, wird die Standardmethode aufgerufen und diese wirft den Fehler aus, da sie nicht
weiß, was sie machen soll.

Beispiel:

Delphi-Quellcode:

type
TItem = class(TCollectionItem)
private
  FVar: String;
public
  procedure Assign(pt:TPersistent);override;
  property Var: String read FVar write FVar;
end;

:
:

procedure TItem.Assign(pt:TPersistent);override;
begin
  if (pt is TItem) then
  begin
   fvar := TItem(pt).var; 
  end
  else
    inherited assign(pt);
end;

Dann sollte es funktionieren :)

[Baeuerle]

Soweit ganz richtig jedoch verliere ich den Wert!!

BSP:

Delphi-Quellcode:

item: TMyItem;
list: TMyCollection;


item:=list[0];
list[0]:=list[1];  // IN DIESEM MOMENT WIRD AUCH ITEM ÜBERSCHRIEBEN !!!! -> das soll nicht sein!!!!
list[1]:=item;

Warum bzw. wie kann ich dies vermeiden?

Assign wurde eingebunden.

[Deep-Sea]

Anstatt

Delphi-Quellcode:

item:=list[0];

so

Delphi-Quellcode:

Item.Assign(List[0]);

?! ...

[Baeuerle]

Vielen Dank sn alle Beteiligten es funktioniert :P

[Deep-Sea]

Zitat:

Zitat von Baeuerle

Vielen Dank sn alle Beteiligten es funktioniert :P

Denk daran, dein temporäres Item wieder frei zu geben :wink: