Hi shmia,
falsch ist wohl relativ. Hab halt Tobject verwendet. Das aus gutem Grund.
In diesem Fall ist mein eigenes assign völlig korrekt.
Aber jetzt zu deiner Lösung:
Delphi-Quellcode:
procedure Tarray.Assign(Source: TPersistent);
var n:integer;
begin
if Source is Tarray then
begin
arr := Slice(TArray(Source).arr, length(TArray(Source).arr)-1) <<<----------------------
Sort;
Maxa;
MinA;
kleinster_fehlender_Wert:=Min_wert;
end
else
inherited;
end;
Fehlermeldung beim compilieren. Slice erlaubt nur Open array element!
Vielen dank und viele Grüsse