Registriert seit: 18. Dez 2010
21 Beiträge
Delphi 7 Professional
|
AW: Zugriffsverletzung??
23. Apr 2011, 20:11
Code:
type
TFormLvl = class(TForm)
{}
end;
TSpielfigur = class
{}
end;
TStar = class
Found : Boolean;
PosX, PosY : integer;
procedure Shine;
procedure Find;
procedure Fly;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FormLvl : TFormLvl;
Spielfigur : TSpielfigur;
Star : Array[1..20] of TStar;
MoveRight, MoveLeft, Fall : Boolean;
JumpCount, SpLeft, SpTop, SpStartX, SpStartY : integer;
implementation
{$R *.dfm}
procedure TFormLvl.StarCreate3;
var i : integer;
begin
MemoLoadPos.Lines.LoadFromFile('..\Level\1\Pos.txt');
for i := 1 to 20 do Star[i].Create;
Star[1].PosX := StrToInt(MemoLoadPos.Lines[2]);
Star[1].PosY := StrToInt(MemoLoadPos.Lines[3]);
Star[2].PosX := StrToInt(FormLvl.MemoLoadPos.Lines[4]);
Star[2].PosY := StrToInt(FormLvl.MemoLoadPos.Lines[5]);
Star[3].PosX := StrToInt(FormLvl.MemoLoadPos.Lines[6]);
Star[3].PosY := StrToInt(FormLvl.MemoLoadPos.Lines[7]);
Star[4].PosX := StrToInt(FormLvl.MemoLoadPos.Lines[8]);
Star[4].PosY := StrToInt(FormLvl.MemoLoadPos.Lines[9]);
Star[5].PosX := StrToInt(FormLvl.MemoLoadPos.Lines[10]);
Star[5].PosY := StrToInt(FormLvl.MemoLoadPos.Lines[11]);
Star[6].PosX := StrToInt(FormLvl.MemoLoadPos.Lines[12]);
Star[6].PosY := StrToInt(FormLvl.MemoLoadPos.Lines[13]);
ImgStar1_1.Left := Star[1].PosX;
ImgStar1_1.Top := Star[1].PosY;
end;
procedure TFormLvl.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
MediaPlayer1.Play;
Spielfigur.BorderLoad;
StarCreate3;
Spielfigur.Move; //hier wird der Fehler angezeigt
SpLeft := SpStartX; // MLeft und MTop sind die aktuellen Koordinaten der Spielfigur,
SpTop := SpStartY; // MStartX und MStartY sind die Startkoordinaten am Anfang des Spiels
end;
procedure TSpielfigur.Move;
begin
if MoveRight then SpLeft := SpLeft + 10; //MoveRight und MoveLeft werden auf den Cursortasten
if MoveLeft then SpLeft := SpLeft - 10; // true oder false gesetzt. Hat noch nie Probleme
end;
|
|
Zitat
|