Problem mit Tpbject

[shmia]

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

Delphi-Quellcode:

TYPE 
  Tarray=class(TPersistent) 
  private 
    arr:array of integer; 
    maximum,minimum:integer; 
    procedure setl(a:integer); 
    function Maxa:integer; 
    function Mina:integer; 
  public 
    { Public-Deklarationen } 
    procedure Assign(Source: TPersistent); override;
  end; 
implementation 

procedure Tarray.Assign(Source: TPersistent); 
var n:integer; 
begin
  if Source is Tarray then
  begin
//    arr := Copy(TArray(Source).arr, 0, length(TArray(Source).arr)-1);
    arr := Slice(TArray(Source).arr, length(TArray(Source).arr)-1);
  end
  else
    inherited;
end;