Zugriffsverletzung. Doch warum ?

[Bummi]

low(Balken)+1 to high(balken)+1


lass die +1 weg

uppss da sind noch mehr bugs drin

Canvas.Create;

erzeugt bei jedem Click auf Start neue Fonts, Pens und Brushes und macht so sicher nichts sinnvolles

Delphi-Quellcode:

Procedure TForm1.FreeBalken;
var
i: Integer;
begin
// wenn es eine Liste und kein Array ist rückwärts löschen
For i:= high(Balken) downto low(Balken) do Balken[i].Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeBalken;
end;


procedure TForm1.ResetClick(Sender: TObject);
var
i: Integer;
begin
PaintBox1.Invalidate;
Start.Enabled:=True;
FreeBalken;
end;