Delphi-Quellcode:
procedure TForm1.StartClick(Sender: TObject);
var
i,k: Integer;
begin
k:= SpinEdit1.value;
Setlength(Balken,k);
For i:= low(Balken)+1 to high(balken)+1 do
begin
Balken[i]:=TBalken.Create();
Balken[i].Create;
Balken[i].Wert:=Random(50)+1;
Memo1.Lines.Add(IntToStr(i)+'. '+IntToStr(Balken[i].wert));
end;
Canvas.Create;
Form1.PaintBox1Paint(Start);
SpinEdit1.Enabled:=false;
Start.Enabled:=false;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
For i:= 1 to high(Balken) do Balken[i].Free;
end;
procedure TForm1.ResetClick(Sender: TObject);
var
i: Integer;
begin
PaintBox1.Invalidate;
Start.Enabled:=True;
SpinEdit1.Enabled:=True;
For i:= 1 to high(balken) do
begin
Balken[i].free;
end;
end;
end.
Ich bekomme bei .ResetClick und bei Form1.OnDestroy.
Beides mal geht es nicht (zugriffsverletzung)
Was mache ich denn falsch?
LG