Wieso kann man Listenelemente nicht kopieren?

[wonnebeekiwi]

OK :D... Das läuft jetzt.
Hat jemand irgenteine Idee wo plötzlich Access Violations herkommen können?
Bei Sachen die vorher schon liefen?
Gibt es nennenswerte Unterschiede zwischen TObject und TPersistent die soetwas beeinflussen können?

[Andreas L.]

Zitat von jbg:

Zitat von Andreas L.:

Leite TElement von TPersistent ab.

Das reicht nicht. Er muss auch noch die Assign-Methode für TElement umschreiben, denn sonst kommt nur "TElement kann nicht zu TElement zugewiesen werden".

Naja, da kommt man mit ein bisschen nachdenken auch selber drauf. Und in der Hilfe stehts auch:

Zitat:

In den meisten Anwendungen wird Assign überschrieben, um die Zuweisung von Eigenschaften aus ähnlichen Objekten vorzunehmen. Wenn das Zielobjekt die Zuweisung von Eigenschaften aus Source nicht behandeln kann, rufen Sie beim Überschreiben von Assign die geerbte Methode auf.

Zitat:

OK ... Das läuft jetzt.
Hat jemand irgenteine Idee wo plötzlich Access Violations herkommen können?
Bei Sachen die vorher schon liefen?
Gibt es nennenswerte Unterschiede zwischen TObject und TPersistent die soetwas beeinflussen können?

Wo bleibt der Debugger stehen? Vermutlich greifst du auf ein noch nicht erstelltes Objekt zu. Poste dochmal deine Klasse.

[wonnebeekiwi]

Delphi-Quellcode:

procedure TForm1.BaumgraphAnzeigen (Baum: TAVLBaum; Tiefe,X,DX: integer);
var Text: string;
    XPos,YPos: integer;
begin
  if not Baum.Leer then
    begin
      DX := DX div 2;
      XPos := X;
      YPos := Tiefe*40 + 20;
      Text := baum.Wurzel.toString;
      ImBaum.Canvas.Ellipse (XPos-10,YPos-5,XPos+24,YPos+15);
      ImBaum.Canvas.TextOut (XPos,YPos-3,Text);
      if not baum.rechts.Leer
      then begin
        ImBaum.Canvas.MoveTo (XPos+7,YPos+15);
        ImBaum.Canvas.LineTo (XPos+7+DX,YPos+40);
      end;
      BaumGraphAnzeigen (baum.rechts,Tiefe+1,X+DX,DX);
      if not baum.links.Leer
      then begin
        ImBaum.Canvas.MoveTo (XPos+7,YPos+15);
        ImBaum.Canvas.LineTo (XPos+7-DX,YPos+40);
      end;
      BaumGraphAnzeigen (baum.links,Tiefe+1,X-DX,DX);
    end;
end;

Der debugger zeigt mir diese Zeile an: Text := baum.Wurzel.toString;
Die Klasse sieht so aus:

Delphi-Quellcode:

type

  TAVLBaum = class(TPersistent)

  private

  public
    Wurzel : TItem;
    Balance: Integer;
    links: TAVLBaum;
    rechts: TAVLBaum;
    constructor create();overload;
    constructor create(Werte: String);overload;
    constructor create(pItem: TItem);overload;
    function KntnFinden(pItem: TItem): Boolean;
    function Hoehe(): Integer;
    function toString():String;
    function Leer():Boolean;
    function KntnEinfuegen(pItem: TItem):boolean;
    procedure Assign(Source: TPersistent);override;
    procedure AssignTo(Dest: TPersistent);override;
    procedure Sortieren;
    procedure LLDrehung;
    procedure LRDrehung;
    procedure RRDrehung;
    procedure RLDrehung;    

end;

Vorher lief das Programm genau so. An den Elementen die ich erstelle hab ich nicht mehr rumgepfuscht.
Im Anhang ist alles.

[Andreas L.]

Ich würde mal sagen das die Eigenschaft Wurzel (ein Objekt) von Baum nicht erstellt wurde. Zeig doch mal den constructor von TAVLBaum.

[wonnebeekiwi]

constructor TAVLBaum.create;
begin
Wurzel := nil;
Balance := 0;
end;

[Andreas L.]

Ich weiß ja nicht was genau TItem (Wurzel) ist, aber probier mal das:

Delphi-Quellcode:

constructor TAVLBaum.create;
begin
  Wurzel := TItem.Create;
  Balance := 0;
end;

[wonnebeekiwi]

TItem ist nur eine Puffer Klasse und Leitet auf TDaten weiter. Die Methoden sind alle abstrakt. Wenn ich das so implementiere kommt der Abstract Error.