Hi,
hab wieder einmal ein Problem mit einer selbst konstuierten Klasse.
Delphi-Quellcode:
unit Uarray;
interface
uses math;
TYPE
Tarray=class(tobject)
private
arr:
array of integer;
maximum,minimum:integer;
procedure setl(a:integer);
function Maxa:integer;
function Mina:integer;
public
{ Public-Deklarationen }
procedure assign(arr0:
array of integer);
end;
implementation
procedure Tarray.assign(arr0:
array of integer);
var n:integer;
begin
setl(length(arr0));
For n:=0
to length(arr0)-1
do arr[n]:=arr0[n];
Maxa;
MinA
end;
procedure Tarray.setl(a:integer);
begin
setlength(arr,a);
end;
function Tarray.Maxa:integer;
begin
maximum:=MaxIntValue(arr);
end;
function Tarray.Mina:integer;
begin
minimum:=MinIntValue(arr);
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var s:tarray;t:
array[1..1000]
of integer;
begin
s.Create;
s.assign(t);
s.Free;
end;
Sobald ich die Form schliesse (habe vorher den Button gedrückt) bekomme ich eine Zugriffsverletzung.
Kommentiere ich s.assign(t); aus so verschwindet mein Button von der Hauptform, sobald ich ihn gedrückt habe....
Versteh überhaupt nichts mehr.
Viele Grüsse!