Problem mit Tpbject

[shmia]

Zitat von Muetze1:

Zitat von shmia:

Deine Assign-Methode ist auch falsch; ich hab das mal verbessert:

Was für ein Schwachsinn.

Oha! - dir ist wohl gerade eine Laus über die Leber gelaufen, sonst wäre dein Ton nicht so.
Ich sag mal wenn man irgendwo eine Methode Assign nennt, dann muss man im Universum der VCL auch richtig machen.
(wird ja immer wieder falsch gemacht, weil das Prinzip dahinter nicht ganz einfach ist)
Man darf natürlich jederzeit eigene Zuweisungsmethoden schreiben, dann sollte man aber nicht direkt den Namen Assign verwenden:

Delphi-Quellcode:

TYPE 
  TIntArray = array of integer;  // oder gleich TIntegerDynArray

  Tarray=class(TPersistent) 
  private 
    arr:TIntArray; 
    maximum,minimum:integer; 
    procedure setl(a:integer); 
    function Maxa:integer; 
    function Mina:integer; 
  public 
    { Public-Deklarationen } 
    procedure Assign(Source: TPersistent); override; 
    procedure AssignArrray(const value:TIntArray);
  end;

Mit dem Vorschlag oben, geht die Klasse sowohl konform mit den Regeln der VCL
und erfüllt ausserdem die Forderung, dass man auch Arrays zuweisen kann.

Delphi-Quellcode:

var
  a, b : Tarray;
  test : TIntArray;
begin
  a := Tarray.Create;
  b := Tarray.Create;
  setLength(test, 3);
  test[0] := 7; test[1] := 23; test[2] := 29;
  a.AssignArray(test);
  b.Assign(a);  // b enthält jetzt den Inhalt von "test"

Was jetzt noch fehlt, sind zwei weitere Konstruktoren:

Delphi-Quellcode:

constructor Create; overload;
constructor Create(const AArray:Tarray); overload;  // das ist ein sogenannter Copy-Konstruktor
constructor Create(const AArray:TIntArray); overload;