Delphi-Quellcode:
unit mWürfel;
interface
type
TWürfel=Class(TObject)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
PunkteArray:
Array[1..8, 1..3]
of Integer;
function GetPunkte(Punkt, Koordinate: Integer): Integer;
procedure SetPunkte(Punkt, Koordinate, Wert: Integer);
end;
implementation
function TWürfel.GetPunkte(Punkt, Koordinate: Integer) :Integer;
begin
Result:=PunkteArray[Punkt,Koordinate];
end;
procedure TWürfel.SetPunkte(Punkt, Koordinate, Wert: Integer);
begin
PunkteArray[Punkt,Koordinate]:=Wert;
end;
end.
PunkteArray[Punkt,Koordinate]:=Wert; //Hier bekomme ich die Fehlermeldung
Erste Gelegenheit für
Exception bei $75079617.
Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004AE2FC in Modul 'Engine.exe'. Schreiben von Adresse 00000008'. Prozess Engine.exe (4720)
Irgendwie stehe ich voll auf dem Schlauch =/ ....