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;